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ABSTRACT 

1.1 THIS PACKAGE CONTAINS 
558 THE RKXX PLUS A 
ND PARAMETER INPUT VIi 

PACKAGES ARE EXPLAINE 


REQUIREMENTS 


&.1 EQUIPMENT 
PDP-i1 PROCESSOR 
MEMORY 


RKii OR RKVi1 CONTROLLER | 
1-8°RKOS OR RKOSF DISK DRIVES (DRIVE TYPES MAY BE MIXED) 


2.2 STORAGE 
THIS PROGRAM REQUIRES 8K 
&.3 PRELIMINARY PR 


OGRAMS 

reise NOT _A DIAGNOSTIC, PACKAGE I* IS ASSUMED THAT ALL 
NT IS FUNCTIONAL 

LOROING PROCEDURE “ 


3.1 METHOD 


PRES BINARY TAPE N READ 
Loner LURES +500" CaDETERMINED BY LOCATION OF 


=" 
D. BErSe “START” PROGRAM WILL LOAD. 


STARTING PROCEDURE 
4.3 CONTROL SWITCH SETTINGS 
NONE 
4.2 STARTING ADDRESS 
200 MINI MONITOR 
4.3 PROGRAM AND/OR eres ACTION 
LORD PROGRAM INTO MEMORY 
SET SWITCH REGISTER TO STARTING ADDRESS (200) 


LORD AODRESS 

PRESS START ? 
IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCS 2008 (I.E. AN 11/34) 
THE PROGRAM WILL DETERMINE THAT THE Sete SWITCH “mag Ye Is 
NCT PRESENT AND WILL USE A *SOFTWARE’ SWITCH yeas 
‘SOFTWARE’ SWITCH REGISTER 1s LOCATED AT LOCATION 1 “egy THE 
ee OF T ‘el Ince ae CONTROLLED | “TER GH A KEYBOARD 
ROUTINE WHICH IS CALLED By ONTROL G’. PROGRAM WILL 
RECOGNIZE THE *CONTROL G’ Photo d, the or peran Bh 
he scope-routine or begins a new test. 
SOFTWARE’ SUTTCH VALUES ARE ENTERED as AN’ OCTAL NUMBER IN RESPONSE: 
TO THE PROMPT FROM THE SWITCH ENTRY ROUTINE: 
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*SWR = NNNNNN NEw =° 
Tox TTING aR ENTIE SUITCH REGISTER 
ING ENTERED. I ag EE, UI 


ACH TIME Sw 
Srece ue BE EN 


SEgiSien Mey BES 


“Sor TARE ie 
BE FOLLOWED. 


é 
2 


ze *RUBOLIT’ AND 
BE USED TO feet y TYPING Pears 


HARDWBRE SWITCH REGISTERS THE "SOFTWARE Sid TCH 
ies Clk PROGRAM FINDS ALL 16 SuITCHES IN 


a surten REGISTER REFERENCES WILL 
ane STER AND THE PROCEDURES rescerees ABSvE MUST 


PROGRAM WILL TYPE MINI MONITOR ROUTINE 


OPERATING PROCEDURE 


§.1 SeERaT LONE. SWITCH 


SEE SE 
BOUTENES. 


5.2 Serr y 
NOT APPL 


9.0 FOR cuits 


NE ABSTRACTS 
ICABLE 


TTINGS 


HES APPLICABLE TO INDIVIDUAL 


5.3 PROGRAM AND/OR OPERATOR ACTOR 
SEE INDIVIDUAL PACKAGE DESCRIPTION (PARAGRAPH 9) 


ERRORS © 


&.1 ERROR HALTS AND DESCRI 
MAJ 


EXPLAI 


DESCRIPTION ( 


RESTRICTIONS 
7.1 STAT te 
IT IS NOT 
ADDRESS 


€.2 ERROR RECOVERY 


‘ pe TAL. IN 
PARAGRAPH 


RESTRICTIONS 
RECOMMENDED T 
OTHER THAN 200 


PTION 


OR PROBLEM EXIST CHECK 
T NE WHAT 


NOTVIDUAL PACKAGE 


T YOU START AT 
MCRERSON EXPLAINED. IN PARAGRAPH 9.1) 


UNLESS DIRECTED TO BY THE PROGRAN. 


7.€ OPERATIONAL RESTRICTIO 
EXPLAINED IN DETAIL IN 


EXECUTION TIME 
VARIES WITH SELECTED ROUTINE, NUMBER OF DRIVES, ETC. 


PROGRAM DESCR 


IPTION 


“PNDIVIDUAL PACKAGE DESCRIPTIONS (PARAGRAPH. 9) 
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INTO EIGHT SECTIONS 


PACKAGE VIDED 
WHICH ALLOW COMPATABILITY TESTING, OSCILLATING SEEKS FOR SERVO 
SEAS Hi Set AS ST rs 
4 LA 
TOHES. INTERLOCKS. ETO) VERIF Fearion 
4 Eres 13 eS tBEp Into Pave ede if 
SECTION NAME 
Q INDEX : 
; see LAgNG SEEe oP 
; DEO OND a ee rTER 
5 FRONT PANEL TEST 
5 RKOS CONTROL PANEL TEST #2 


3 BueR FARURS CURING. WRITE) TEST 


OTE: NORMAL LINKAGE TO ANY e THESE PACKAGES IS THRU 
Baas O (SEE PARAGRAPH 9.1 


8.3 SECTION O INDEX 


PURPOSE: Toe ALLOW THE RT LECT TS VIA 
is yon et Device he EFFORT ia FR HIM 


US SWITCH SETTINGS. 
DESCRIPTION: LOAD SF aRT TELORESS "500 A TABLE IS PRODUCED 
Wi TELL USER T AND ie OF T 


HE 
T. (TYPE IS AN OCTAL CODE BY WHICH THE USER SELECTS 
TEST). AFTER THE TABLE IS TYPED, THE ahh le “TYPE = 


is ASKED THE USER THEN TYPES THE NUMERAL 0 


SELECT A 
USE: a Is EXAMPTE Og THE ACTUAL OUTPUT: 
RK11 UTILITY PACKAGE 
TYPE 

INDEX 0 
COMPATIBILITY PACKAGE 1 
OSCILLATING SEEK PACKA 2 

TER-SURFACE VERIFIER E 
RKOS CONTROL PANEL TEST 4 

CONTROL PANEL TEST #2 5 
HEAD ALIGNMENT ROUT = 
POWER FAILURE (WRITE) TEST ? 


TYPE=x 
WERE “XxX” IS THE RESPONSE (0-7) BY THE USER 


ERROR INFO: ANY_ILLEGAL INPUT IS HANDLED, A QUESTION MARK 
IS TYPED AND THE QUESTION “TYPE =" IS RE-ASKED. 


$.2@ SECTION 1 COMPATIBILITY PACKAGE 
PURPOSE : TQ CONFIRM ie FACT THAT A rkan THB, 
fc ) Byes old EIGHT) NOT REPLY TS BK Sy tet 


CKAGE DOES N TO_RK VES. 
DESCRIPTION: THIS PACKAGE ALLOWS A USER TO AUTOMATICALLY TEST 


SEG 0005 





USE: 


AD_ALIGNMENT T 
POWER FAILURE (WRIT! 


ARES 
aR 


S5MPATIBILITY-A DEFINITION, COMPATIBILITY INFERS 
MORE ie Shey INFORMATION WHICH 


- 


HE BELOW UAL 
WANTE TO RUN SINGLE PROCESSOR MOOE AND TEST 
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RKL1 UTILITY PACKAGE 
bey MEME TYPE 


NDEX 
MPATIBILITY PACKAGE 1 
SREESRERES 


wearietl Se Pav ree inte eR 


VE _ NUMBER FED BY & OMMAS ee TeRVINeTES EME 
NG WITH A i THEN @ CARRIAGE RETURN 


S aSKeD TS A SECOND SYSTEM, 
AOE: TRECTIVE TELLING 
M EXAC Ce nee user eee T S ore cn aires TO 


ta tae hoe ERROR® 
H_ANY OTHER SELECTED 


ONDITIONS. 
oe hey BUTOMATICALLY 


nSEE ERR INFO TO DETERMINE T ye OF ERROR 
WHICH SONS THTUTES INCOMPATABILITY 
SEEEEEEEEE 


aye 
~4o40 


eee oy 
g 
Bae 
el 
es 
ae 
é 
gR 
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EXAMPLE 2 
QO TEST COMPATIBILITY ON 
TS 0,1 ON SYSTEM ONE 

T GOES LIKE THIS.... 


mm 


OSCILLATING SEEK PACKAGE 
FORMA SURF 


(2 
< 
m 
a 
Lael 
nN 
~ 
m 
a] 
ee ae 


HEAD GNMENT ROUTINE 
POWER FAILURE (WRITE) TEST 


TYPE=1 
DRIVE NUMBERS ON SYSTEM 11,0 


IS THERE A SECOND SYSTEM?Y 
DRIVE # =0 
MOUNT Pack ON DRIVE #1 


MAKE WR ENABLE 

PRESS CONTINUE WHEN DRIVE RDY 

LOAD AND START ADDRESS 210 ON SYSTEM #2 
AND TYPE THE BELOW WHEN ASKED ON SYSTEM se 





TL 
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AND TYPE THE BELOW WHEN ASKED FOR IT. 
oR 32000055 
SSESESERSE 
DIFFERENCE BETWEEN THIS AND SINGLE 


Bee ea i tate Retort 


erertriit 
COMPATIBILITY-SYSTEMse 
WORD. i=000002 


SES 0008 


WORD 22000200 


MOUNT PACK ON DRIVE 80 
MAKE PACK WRITE ENABLE 
PRESS CONTINUE WHEN DRIVE RDY 
DONE SYSTEM é@ ona SYSTEM i, TYPE WORD 000077 


BY TYPING WORD 1 
WORD 2 =, BY Verna oTORD. TWO FROM PROCESSOR 
HE RECEIVES THE MOUNT COMMAND MOVES THE fest" PACK 
19 sysTen TWO DRIVE NUMBER (0). AND PRESSES 
cont! . NOW THE MESSAGE TO RETURN TO SYSTEM 
*SYSTEM ONE HAS BEEN Ri A HALT STATE AND 
BE LEFT THAT WAY UNTIL THE RETURN FROM 
SYSTEM TWO SO THAT TABLES, ETC. BUILT FOR THE 
TEST WILL NOT BE DISTURBED. 
HELEEESEEE 

WORD=000077 

PACK ON DRIVE #1 

PACK WRITE ENABLE 
PRESS CONTINUE WHEN DRIVE RDY 
MOUNT PACK ON DRIVE #0 

PACK WRITE ENA 


MAKE PACK BLE 
PRESS CONTINUE WHEN DRIVE RDY 
es RK11 UTILITY PACKAGE 


TYPE 

INDEX 
COMPATIBILITY PACKAGE 1 
OSCILLATING SEEK PACKAGE € 
FORMATTER- ACE VERIFIER 3 

CONTROL P EST 4 
RKOS CONTROL eae TEST #2 S$ 
HEAD ALIGNMENT ROUTINE & 
POWER FAILURE (WRITE) TEST 7 


TYPE= 
FEERESEES 
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| ERROR & SPECIAL SECTI 
| $.3 SECTION 2 OSCILLATING SEEK PACKAGE 

| PURPOSE: 70 ALLOW. THE TO MAKE SERV 
/ 


DESCRIPTION: 


VATLABL 
= M3 ony WAY TO EXIT IS HALT!, LOAD ADDRESS 200, 
USE : ; bec! TYPE 2, RESPOND TO QUESTION WITH UNIT NUMBER... 


OSCILLATING SEEK PACKAGE 

SET SiO TO SW? TC SELECT THE DRIVES TO TEST 

AND CONTI IF BLU SWITCHES ARE RESET, 

ALL AVAILABLE DRIVES WILL BE Tes ep 

TOGGLE THE “FIRST CYLINDER ADDRESS” (OUTER LIMIT) 

INTO THE Low BYTE (BIT0-7) OF eS ITCH REGISTER AND THE “LAST 
CYLINDER ADDRESS” (INNE NTO THE H 


- FOLLOW TIONS 
ERROR . INFO: IF AN ILLEGAL ADDRESS IS SELECTED A MESSAGE IS TYPED 
AND USER MEARLY SELECTS LEGAL ADDRESS AND DEPRESSES 


EXAMPLE TYPEOUT 

INVALID ADDRESS IN SWITCH REGISTER TRY AGAIN 
INVALID ADDRESS IN SWITCH REGISTER TRY AGAIN 
INVALID ADDRESS IN SWITCH REGISTER TRY AGAIN 


##NOTE: ## BOTH DRIVES OF AN RK-OSF_SHOULD NOT BE SELECTED 
FOR TESTING AT THE SAME TIME. 


3.4 SECTION 3 FORMATTER-SURFACE VERIFIER 


PURPOSE: 19 foRneT VIRGIN PACKS OF REFORMAT PN OLDER 
K ag VERIFY ITS SURFA 

DESCRIPTION: CrLECT + YPE 3, RESPOND TO THE QUESTION ss 
BY SETTING Sui TCHEs CORRESPONDING 15 
DRIVE NUMBERS TO BE FORMA TTED. THUS IF 
DRIVES 0,1,2 ORE TO BE FORMATTED SET 
SWITCHES O'1.2. THE DRIVES ARE FORMATTED . 
ONE AFTER ANOTHER AT COMPLETION PACK GOOD 


; KO1 


MESSAGE IS TYPED AND PACK IS FORMATTED. 





i 
USE: CT TYPE 3. RESPOND TO QUESTION WITH 
| BESSA Se sitrcl RecISTER: 
| nenkeeae 
| RK11 UTILITY PACKAGE 
| , NAME TiPe 
LOE TIBILITY PACKAGE i 
OSCILLATING SEEK PACKAGE 2 
FORMATTER-SURFACE VERIFIER 3 
RKOS CONTROL PANEL TEST = 
RO CON PANEL TEST #2 5 
| AES SO UTIMENT RaUTL E 
| POWER FAILURE (WRITE) TEST > 


TYPE=3 
FORMATTER-SURFACE VERIFIER, SET SW REG WITH DRIVE #°S 


PACK GOOD. 
aa a UTILITY PACKAGE 
TYPE 

INDEX 0 
COMPATIBILITY PACKAGE 


AFTER THE PACK IS FORMATTED "A *G000 MESSAGE IS 
hg RR Re IS MADE eae HE ene ARE 
ANY MORE PACKS "0 Pree BE poe ae ni ARE 
eco cat IS_TRANSF RED 10 Tie T "THNTRON TOR 
ERROR INFO: DRIVE PROBLEM: T 
SYSTEM ERROR 


ca .IS TYPED IT INDICATES A FAULTY DRIVE OR 
CONTROLLER, RUN DIAGNOSTICS, THE PROCESSOR WILL HALT 
PRESS CONTINUE TO RETURN TO MINI MONITOR. 
BAD SPOT, OR SURFACE PROBLEM, ETC. 
PACK FRILED AT (IN OCTAL) CYLINDER SECTOR SURFACE 
3.5 SECTION 4 | RKOS CONTROL PANEL TEST 


PURPOSE: TO INSURE ALL SWITCHES INDICATOR LAMPS, AND INTERLOCKS: 
ARE ee i THE 
DESCRIPTION: SELECT TYPE 4 — TO QUESTION WITH UNIT NUMBER, FOLLOW 
DIRECTIONS GIVEN. T COMPLETION MESSAGE eet. Is Gren 


USE: SELECT TYPE 4 ER ESPOND TO QUESTION WITH ne UNIT 
errerrrr srs 
TYPE 

INDEX 0 

COMPATABILITY PACKAGE 1 

OSCILLATING SEEK PACKAGE e 

FORMATTER-SURFACE VERIFIER 3 

RKOS CONTROL PANEL TEST 4 

| oe Oe CONTROL PANEL TEST #2 5 

HEAD ALIGNMENT ROUTINE 6 

POWER FAILURE (WRITE) TEST 7 
TYPE=4 


3.6 


SEC 
PUR 


TYPE 
INDEX 0 
COMPATABILITY PACKAGE b 
pCi e ING SEEK PACKAGE 
RMATTER-SURFACE VERIFIER 3 
ELAE CONTROL PANEL TEST 4 
RKOS CONTROL PANEL TEST #2 5 
HEAD ALIGNMENT ROUT 6 
POWER FAILURE RITES TEST 7 
TYPE= 
HERERLEELE 
TION 5 RKOS CONTROL PANEL TEST #2 
POSE: TO GIVE A CONTINUOUS MONITORING AND 


DES 


USE: 


RKOS CONTROL PANEL TEST, WHICH DRIVE70 
MOUNT Pack ON DRIVESO 
pL E DEty ORT e. IN RUN ;SHOULD SEE THE RUN, 
tN REE LAMPS LIGH 
noe day + carte ENABLE PRESS" TONTENUE 


WRITE PROTECT THE DRIVE THEN PRESS CONTINUE 
CLEAR WRITE PROTECT THEN PRESS CONTINUE 


CAUTION! TRY TQ OPEN THE DOOR, DO NOT FORCE: 


DOOR SHOULD NOT OPEN! 
PRESS CONTINUE WHEN FINISHED 


ELSES PE ey AEE IO 


OPEN THE DOOR, PUT DRIVE-IN RUN 
CAUTION! IF RUN LIGHT ON ERROR! DEPRESS 
LOAD IMMEDIATELY, CONTINUE WHEN FINISHED 


REMOVE THE PACK CLOSE THE DOOR 
PUT DRIVE IN RUN, DRIVE SHOULD NOT 
RUN... INTERLOCKS’ Hone BEEN CHECKED 


NE! 


RK11 UTILITY PACKAGE 


CKING CAPABILITY FOR THE FOLLOWING 


CHE 
porwr rTM Ot ON THE VARIO 


ae 


mao ENABL ED 
R UP 


US _DRI 
+s (ROY CLR)/“ON LINE (RDY éeT) 


SE /SEEK OK 
CRIPTION: SELECT TYPE S, PUT ALL THE DRIVES THAT 


ARE TO BE MONITORED AND CHECKED ON 


*RUN’. 


NOTE Med THIS IS IMPORTANT BECAUSE THE 
PROGRAM HAS TO KNOW WHICH DRIVES ARE TO 


BE CHECKED. 
AFTER ial SELECTED TYPE S AND PUTTING 


ae DRIVES THAT ARE TO BE MON ee 


THE PROGRAM PRINTS OUT ALL T 
oni ves THAT ARE ’ON LINE’. 





en eee 


9.7 SECTION & 
PURPOSE: 


DESCRIPTION: 


MOt 


OGRAM, THEN STARTS SCANNING ALL 
ONE AFTER THE OTHER. CHECKS | IF 
tve IS ON LINE QR OFF - 
L ) N ai CHECK I 
TE ENABLED OR WRITE PROTECTED. 
} ONE AND 


=e 
a 


iets 


THE DR . 
ae ee a ll 
USE T ‘WRITE ie IT Gets 


OFF LINE 

bite PROTECTED 
Atal fame 
EEK Ok 


THAT ONLY CHANGES IN STATUS ARE 

TED. THESE CHANGES HAVE TO BE AFFECTED 
IT MIGHT IMPLY AN ERROR CONDITION. 

HEAD ALIGNMENT ROUTINE 


r9 ry ees? A FACILITY FOR HEAD ALIGNMENT, 
WITH ane SELECTION OF THE UPPER OR 


L HE 
WHEN THE ROUTINE 1S. SELECTED THE 

FOLLOWING MESSAGE A 

SET SWO=0 FOR SURFACE a SWO=1 FOR SURFACE :: 
SET SWi=1 TO TEST CYL 64, SET SW1=0 TO TEST 
CYLINDER 105. 


15=0 
PUT Any SW FROM 2-15 HI TO SELECT NEW DRIVE 
THEN THE FOLLOWING QUESTION iS ASKED: 

DRIVE? Lg ae 
SHOULD Hy IN THE DRIVE NUMBER T 
HE WANTS TO SEL 


ECT. THE ORIVE NUMBER IS 
oat a WITH AN °F* TO TEST RK-OSF TYPE 








TYPE=& 
DRIVE=0<CR> 


THE UPPER OR THE LOWER HEAD CAN 
ek Suton Oe, 4 es. 0 1s 


Be be RES fis, 


POST T SONS THE HEADS ont THE SELECTED 


READ 
THES CTED. IF THE USER WISHES 

TO SELECT THE OTHER HEAD OR CYLINDER IT CAN BE 
YNAMICALLY BY F Su 0 OR SWI. . 
IF SOME OTHER DRIVE IS TO BE SELECTED 
RLY, SUITCH BETHEEN SH 2 AND SH iS SHOULD 
BE PUT UP. THE QUESTION - DRIVE?) 18 
ASKED AGAIN. THIS IS A CONTINUOUS ROUTINE, 
HENCE TO EXIT A HALT HAS TO BE DONE. 


emaiaee Seen S DONE WITH AN RK-OSJ CARTRIDGE 


F @N F 


YPE DRIVE IS SELECTED Cyt Mer 


£4 OF THE RK-OSJ IS CYLINDER 130 OF THE F DRIVE 
(EVEN DRIVE). CYLINDER 105 Be Cones CYLINDER § 
OF THE ODD DRIVE ON THE RK-OSF. 


$.8 SECTION 7 
PURPOSE: 


DESCRIPTION: 


(DISK) POWER Ale er, peli one 


THIS TE . 1: eu Risk 
Be pot Bley Pe itt of SENSES j ME og OF 
UPON SELECT HE PROGRAM : INDS_OUT 
THE FIRST AVAILABLE ORive AND INDICATES IT TO 
THE USER BY BR iog NG A Sons 


IV NUMBER 
THEN IT PROCEEDS TO TO “TRITE UNIQUE Partehis. 
ON CYLINDERS 6 TO 1S (DECIMAL) OF THAT DRIVE. 
THE HEADS ARE THEN POSITIONED ON CYLINDER 10 
BuO Th THE USER IS ASKED TO DROP POWER ON THAT 


“DROP POWER 

MEANWHILE PURGE IS BEING DONE ON CYLINDER 10. 
ON GETTING THE ABOVE MESSAGE THE USER SHOULD 
DROP THE POWER ON THAT DRIVE. ON SENSING A LOSS 
OF POWER, THE PROGRAM WILL ASK THE USER TO PUT 
THE POWER ON AGAIN: 


ON PEE TV ING THE ABOVE MESSAGE THE USER SHOULD - 

PUT THE POWER ON. ON ee POWER THE 

PROGRAM PROCEEDS TO_CHECK T_THE DATA WRITTEN 

ON CYLINDERS 0 fo ts was INTACT. IF O waits 

CHECKS ERROR (POSSIBLY MEANING THA 

SOME OF THE DATA WAS DESTROYED DURING THE 

LOSS OF POWER) IT IS «;s ORTED AS Bi ING: 
ESROR, ON POWER- RKDA=XXXX 

oot THE CONTENTS OF F exp AT THE TIME OF 


THE PROGRAM DOES THE ABOVE POWER FAIL TEST 





sy 


=7 
30 


ARE PRES HF 
SEIN FASHION. 


ONE AFTER THE 
EXIT IS THROUGH 


8.9 SECTION SPECTAL 


. 


« ‘e - 





FOR THE BELOW EXAMPLES THE FOLLOWING FORMAT 


WILL BE USED. 
THE act! YPEOUT -COMMENTS ON WHAT 
AND RESPON urRES OR WHAT TO DO 
#NOTES IF NECESSARY FOR ise 
ERPOR EXAMPLE | 
FORMATTER-SURFACE VERIFIER 3 
RKOS CONTROL PANEL TEST 4 
TYPE=] ;TYPE 1 SE 
DRIVE NUMBERS ON SYTEM j=0. sDRIVE 80 
IS THERE & SECOND SYSTEM?N NO SECOnd 
MOUNT PACK ON DRIVE 80 : CONTINUE PRE 
MAKE PACK WRITE ENABLE WRITE PRO 
PRESS CONTINUE WHEN DRIVE RDY ;CLEAR WRI 
DRIVE w1TE PROTECTED. :NOW RUNS T 
DRIVE WRITE PROTECTED e THIS DOES 
DONE! sOUTCOME OF 
RKI1 UTILITY PACKAGE 
TYPE 
INDEX 
COMPATIBILITY PACKAGE i 
OSCILLATING SEEK PACKAGE 2 
ERROR EXAMPLE 2 
RK11 UTILITY PACKAGE 
NAME TYPE 
INDEX Is 
sQMeaTIBILITY PACKRG 1 
OSCILLATING SEEK = 
F ORMATTER- Me UBFACE. ienieier 3 
RKOS CONTROL 4 
RKOS CONTROL PANEL 1EEy #2 = 
Sat sth oe feyte TEST 5 
TYPES] 
DRIVE NUMBERS ON SYTEM 1=0. 
IS THERE & SECOND SYSTEM?N 
MOUNT PROK ON DRIVE 80 
Beas Pathe caso 
Oeete NOT bee 
Oe Ive NOT READY ; CONTINUE 
DRIVE NOT READY ;DRIVE NOT a ‘yp 
DRIVE NOT READY ;T0 SPEED MES 
DRIVE NOT READY TO PRRTNGe - éretic Svattad RE 


me we ee ee ee 








< 


;BUN IF NOT LOADED OR NOT 
ADY MAKING DRIVE READY 


sRERD 
WILL STOP THE MESSAGE 
-IT DOES NOT EFFECT THE 


“~ sTHE OUTCOME OF COMPATABILITY 


z . S€6 0015 


RARRAR RRR 
BEBGEBHES 


EE5544544 
titi 


© OF-45-4>-40-40 4b 48 48 @ 
fT £4 < <<. - 
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RK11 UTILITY PACKAGE 


NOE X 
COMPATIBILITY PACKAGE 
OSCILLATING SEEK PACKAGE 
ERROR EXAMPLE 3 
RK1L UTILITY PACKAGE 
INOEX 
COMPATIBILITY PACKAGE 
OSCILLATING SEEK PACKAGE 
FORMA hontane pee teat 


Now ones 


HEAD ALIGNMENT ROUT 

POWER FAILURE (WRITE) TEST 
TYPE=1 ;DRIVE RESET TIMED OUT 
DRIVE NUMBERS ON SYTEM 1=0,1,4,7. 


IS THERE A SECOND SYSTEM’Y 
DRIVE 8 =2 


DRIVE 
MOUNT PACK ON DRIVE sC 
MAKE PACK WRI ; THIS MESSAGE 
PRESS CONTINUE WHEN DRIVE RDY if CATED A 
MOUNT PACK ON 7 YE 81 : IS NO 
? PACK WRI sAND IF CONTI 
Price CONTI WHEN DRIVE RDY  ;LOAD START 
DRIVE RESET TIMED OUT sIS NECESSAR 
DRIVE RESET TIMED OUT ;SHOULD SE R 
DRIVE RESET TIMED OUT sFRILING DRI 
DRIVE eat TIMED OUT 
DRIVE RESET TIMED OUT 
#NOTE A SLOW DRIVE OR FAST PROCESSOR AND MEMOR 
MAY CAUSE THE MESSAGE TO APPEAR A FEW TIMES 
T CONTINUE THIS IS OK AND WILL NOT EFFECT 
COME OF THE TEST 
ERROS EXAMPLE 4 


OSCILLATING SEEK PACKAGE : 
 FORNATTER-SURERCE VERIETER es 
- RKOS CONTROL PANEL TEST q 


TYPE=! 





DOe2 
ORIVE NUMBERS ON SYTEM 120. 


IS THERE A SECOND Pe ;SAME AS ABOVE BUT FUNCTION 
ne gi PACK ON DRIVE 80 ;WAS A CONTROL RESET 


IVE RDY ;ALL COMMENTS ARE THE SAME 
AS EXAMPLE 3 


SEG O0i6 


#8 SINGULAR AS ABOVE IS NOT A PROBLEM 
AND WILL NOT EFFECT COMPATABILITY 


ERROR EXAMPLE S 


RK11 UTILITY PACKAGE 


NAME TYPE 
INDEX Q 
kore et BILITY PACKAGE 1 
pac ILL TING SEEK PACKAGE é 
FORMAT ANTAL Pree i 3 
Rue CONTR CONTR pet iE . 4 : 

8 

ies Pe Te 3 

BAER "FAILURE apie) TEST ? 


TYPE=1 
DRT’ vE NUMBERS ON SYTEM 1=0 
IS THERE A ae Poor 
MOUNT PACK ON DRIVE # 
MAKE PACK WRITE ENABLE 
PRESS CONTINUE WHEN DRIVE RDY 
Reon OCCURRED DRIVE DECLARED DOWN!! NOT TESTED ° 


RK11 UTILITY PACKAGE 


TYPE 
INDEX 0 
COMPATIBILITY PACKAGE 1 
#IN THE ABOVE CASE THe ie SSeGe 9 SEEK INCOMPLETE 
EERORS ORS OCCURRED OR NOT TESTED!” 


CLARE 
MAY ce is THe Eene E oom’ AS DESCRIBED ABOVE 
EXCEPT Me : IS CAUSED BY 3 SEEK ERRORS OCCURRING 


ERROR EXAMPLE & 





ae = oe ee eee 


RK11 UTILITY PACKAGE 


Tyre 
COPPRTASILITY PACKAGE i 
peter ING SEEK PACKAGE é 
ORMATTER-SURF AC "TEST en 3 
SE SUL ET mourn? 
POWER FAILURE cURITED TEST ? 


TYPEs] 
DRIVE NUMBERS ON SYSTEM 1=0. 


IS THERE A, SECOND SYSTEM°Y 


ORIVE & 
KOUNT PACK ON DRIVE a0 


ACK WRITE ENABLE 
Press. CONT ING WHEN pave RDY VETER 62 
cee SELES BEY. 


WORD 
WORD=000177 


: 1 T_BE_ READ 
ADDR=002764 EXPCTD=077400 RECVD=1 77000 


ADDR= XPCTD=077400 €vD=037600 
ERROR! “Beta uRIyTEN BY rab 3 1 CANNOT SE READ. 
ERROR! DATA WRITTEN BY DRIVE 1 CANNOT BE READ 

ADDR=007633 EXPCTD=077400 RECVD=177000 

ADDR=007633 EXPCTD=077400 RECVD=177000 


RK11 UTILITY PACKAGE 





TYPE 
x 0 
TABI l 
PoRMAT TER SS EFAC PvE FIER E 
RKOS CONTR PANEL T i 4 
RKOS C PANEL 82 5 
HEAD ALIGNMENT ROUTINE i) 
POWER FAILURE (WRITE) TEST 7? 


TYPE= 

M3 we RROR MESSAGE SHOWS e COMPATABILITY 
PROB L ERRORS OCCURRED ON HEAD ONE OF 

pee oo O TRYING TO READ INFORMATION WRITTEN BY 


ERROR EXAMPLE 7 





ee = oe ee 


MOUNT PACK ON 


Bee StL? Bat Behe wo 


! DATA WRITTEN BY DRIVE. 1 CANNOT BE READ. 
ADOR=000367 RECVD=077600 


LS BS oe 
gp em 


XPCTD=077400 RECVD=037600 


a Berens lee 


ERROR! DATA WRITTEN BY DRIVE 1 CANNOT BE READ. 
VD=077600 


ADDR 7 _EXPC CvD=177000 
here OCCURRED DRIVE DECLARED DOWN! ! NOT TESTED! 


IN THE ABOVE EXAMPLE THE PROBLEM IS EXTREME. 
THE DRIVE WAS SSPE a Ti ee DO TO CHECKSUM 

WAS aS DETER NED SEE 
PRRAG oe ICE AL SRO ER DID NOT 
STAR ere eR NG UNTIL C VCIRDER R 7. AND WAS NOT 
FATAL UNTIL AC INDER oo AGAIN HEAD #1 WAS A 
COMMON FACTOR. 


EERELELERE 
COMPATIBILITY ERROR RECOVERY 


me A UTIL Y te IS_NOT A_TRUE DIAGNOSTIC 
IT IS OF BENEFI THe USER TO AT TIMES 

TO MODIFY THE PROGRAN TO RECIEVE MORE INFORMATION OR 
CONTROL PARAMETERS 


1. THERE ARE TwO STRATEGICALY PLACED NO 
WHICH IF CHANGED TO HALTS, Y BE OF HELP TO 
THE USER. ONE 1§ IN THE EXECUTE” ROUTINE WHICH 
0 EXAMINE THE DISK ADDRES 
BUS ADDRESS. WORD COUNT AND CONTROL REGISTERS IN 
TEMPORARY Thar tons ott PRIOR TO LOADING AND 


a iN THE ROUTINE 
WHICH ALLOW THE USER TO INE THE RKER REGISTER 
ORE THE PROGRAM CORRECTS ANY ERRORS WHICH 

WHICH MAY HAVE OCCURRED. 
&. IF PLAGED BY CHECKSUM ERRORS AND THE USER WISHES 


MORE ERROR MAPING THEN HE MAY MODIFY THE 
MASK WORD AT LOCATION "ERRCHK+2’ TO ONLY RECOGNIZE 
HARD ERRORS. 


3. TO INCREASE OR DECREASE THE NUMBER OF PETRYS ALLOWED 


EO a 








~~ wee ee + 


GOe 
BEFORE A DRIVE. TS DECLARED DOWN, G07 


Bae ha ee Ws aah Om 
FAILURES, TO AL : 
aah ly Law te 

aLtEE 1h Sey shee, Nahe FOL arahes oe TASH SHOMS ALL PACKAGES 


ty" PACKAGE 


fs 


COMPATABILITY PACKAGE 
OSCILLATING SEEK PACKAGE 
FORNATTER-SUREACE VERIFIER 
RKOS CONTROL PANEL TEST 
RKOE CONTROL PANEL TEST #2 


HEAD ALIGNMENT ROUTINE 
OWER FAILURE (WRITE) TEST 


-4 
NOUS Gume-¢ 25 
m 


TYPE=0 
RK11 UTILITY PACKAGE 
. NAME ve 

eae ILITY PACKAGE 1 
OSCILLATING SEEK PACK 2 
ORMATTER-SURFACE VERIFIER 3 

RKOS CONTR TEST 4 

RKOS ¢ TEST 5 

HEAD : GNMENT ROUTINE & 

POWER FAILURE lattes TEST 7 2 


TYPEs] 
DRIVE NUMBERS ON SYSTEM 1=0,1,3. 


sO 
rt) 
4 
<= 
m 
8) 
© 
< 





~ 2 me ee eee ta am a ha em tae a ea em a so en bene eee 


MAK K_WRITE E 
Parse CONTiNGE WHEN DRIVE RDY 


RK1i UTILITY PACKAGE 


TYPE 
. ar BBILIT PACKAGE : 
SCI SEEK PACKAGE 
R-SURFACE VERIFIER 3 
Rhos CONTROL PANEL TEST r 
NTROL PANEL TEST #2 : 
*PATLURE LATTE : 
BSUER FATLURE (WRITE) TEST 





Sec TLcAT ING SEEK Sai: Ri at ae 


(OU ‘ 


R LIMIT) a 
Had Cae Sp HE we ne 


BYTE (BIT8-15), THEN PRESS CONTINUE. 
‘(RK11 UTILITY PACKAGE 


_ TYPE 
INDEX ag 
COMPATABILITY PACKAGE 1 
OSCILLATING SEEK PACKA 2 
FO TER BCE VERIFIER . E 
arte CONT ESE P TEE} Pr S 
IGNMENT ROUTI z 
POWER FAILURE (WRITE) TEST ? 


TYPE=3 
FORMATTER-SURFACE VERIFIER, WHICH DRIVE?O 
PACK GOOD. 
RK11 UTILITY PACKAGE 
TYPE 


INDEX 

COMPATABILITY PACKAGE 
OSCILLATING SEEK PACKAGE 
FORMATTE 4 


HEAD ALIGNMENT ROUTINE 
POWER FAILURE (WRITE) TEST 


x 
R 
2 
3 
re 


TYPE=4 
RKOS CONTROL PANEL TEST, WHICH DRIVE?0 
MOUNT PACK ON DR 0 
PLACE DRIVE IN RUN :SHOULD SEE THE RUN, 
POWER ON CYLINDER LAMPS LIGHT. 

MAKE trove aRITE ENABLE PRESS CONTINUE 


WRITE PROTECT THE DRIVE THEN PRESS CONTINUE 


ne ee ee 


a me a re ee we ee eee _—- 


CLEAR WRITE PROTECT THEN PRESS CONTINUE 
CAUTION! TRY 1 eal THE DOOR, DO NOT FORCE: 
DOOR SHOULD NOT 

PRESS CONTINUE WHEN NEINISHED 


PRESS ORT ENUE MEN FENTSEDE  CAGHT 
PEST INE Naik UT htton ERR ae DEPRESS 


LOAD IMMEDIATELY, CONTINUE WHEN FINISHED 
ag CLOSE THE DO 


a Benita SPER ee 


RK11 UTILITY PACKAGE 
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ee ee eee: 
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BASIC DEFINITIONS 
TRAP CATCHER 
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ACT11 HOOK 


NTER_ TABLE 
A A al 
GET FOR SOFTWARE SWITCH REGISTER 
COMPATSSILITY TEST 
OScI ING SEEK ROUTINE 


SE erate P ACE VERie IER 


C s 
HEAD ALIGNMENT ROUTI 
Tyee POWER FAILURE TEST 


Bier TAL (ASCII) AND TYPE 
TY inet ROUTINE 

READ AN OCTAL NUMBER FROM THE TTY 
ha DECODER 


TABLE 
Bauer DOWN AND UP ROUTINES 


po eee 
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04-OCT-76 14:01 PAGE 1 
she ati toes 
* Ho M T (0) ent 1976 
ts ie) 
cs, sere 
| SPROGRR BY BOB COLLINS 
t STHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
; #PRCKAGE (MAINDEC-11-DZ0RC-C2), SEPT 14, 1976. 
iTNe) 
oyae 160000 ;;HALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TYPOUT 
US Be Ee 
# 
t SREVISED Y CHU Hess aucusT’ 1976 
-S8TTL BASIC DEFINITIONS 
een ADDRESS OF THE STACK POINTER ### 1100 ##4. 


-EQUIV » ERROR ;;BASIC DEFINITION OF ERROR CALL 
-EQUIV TOT; SCOPE ;;BASIC DEFINITION OF SCOPE CALL 


seats { Samngeed DEFINITIONS 


T= i: CODE F oe (ne-Peees TAB 
LF= 1 7 3CO FOR 
CR= ;;CODE FOR CARRIA 
CRLF 2 ::CODE FOR CARRIAGE RETURNL INE FEED 
-, ::PROCESSOR STATUS 
i Ve itr STACK Limit TER 
3 Roe Poa TeRRUPT REQUEST REGISTER 
pee 155E5 5 NaRE eutT cH REGIST 
DDISP= 159859 : PRDWARE DISPLAY REGISTER 
-#GENERAL PURPOSE REGISTER DEFINITIONS 
Ro= %0 7 ;GENERAL REGISTER 
Ris % ;;GENERAL REGISTER 
s % ;;GENERAL REGISTER 
R3= “3 >:GENERAL REGISTER 
R4= %4 ;;GENERAL REGISTER 
RS= “Ss ;;GENERAL REGISTER 
= “& ;;GENERAL REGISTER 
R7= “? ;;GENERAL REGISTER 
cP= “& ::STACK POINTER 
PCs %7 58 C ER 
-*PRIORITY LEVEL DEFINITIONS 
Pro= ;;PRIORITY LEVEL 0 
PRiz 40 ::PRIORITY LEVEL 1 
PRe= 100 ::PRIORITY LEVEL 2 
PR3= 140 ;;PRIORITY LEVEL 3 
PR¥= 00 :PRIORITY LEVEL 4 
PRo= 40 ;;PRIORITY LEVEL § 





. SES 0024 


LO2 


14:01 PAGE 2 


04-OCT-76 


BASIC DEFINITIONS 


MACY11 27(1006) 


22-SEP-76 10:10 


r 
- 


11-DiRKI- 


1D.P11 


aes esa ee ee rrr 


MI! 
ni? 


oe 





;;PRIORITY LEVEL & 


ss 
gs? 


;;PRIORITY LEVEL 7 


oor owmredc 


Wor ons 
QDOOD0000 


_ oer ee ee OH mH 


300 
340 


-#°CWITCH STER” SWITCH DEFINITIONS 
Swiss Haile 
sug 
Swe 
?' Si? 
Swe 
SWS 
Sw4 
Sw 
Swe 
Sul 
SwO 


" ASM Ne Bh! BL AGEAZAZEZD 
TMUAOWMaDr~ ues 2 SIA AOOOOOOONOO DD DDD 
wt 444) SS a tt tt oa fu lulu laulu lale) 
Ramana tadbals WK 04 4 4 4 4 4 4 4 0 0 te 0 ee LL adda dadlad) 

DHOHHMH MMM ss ee ee ee -MMOMOMOMMMMmMmMmMm@mammm+++++-+:: 


DATA BIT DEFINITIONS (BITOO TO SIT1S) 


PREs 
PR7= 


PRABSYRS BBG BSLCAULTECL LE SaAVIS GSS RORKAR LER REISS SIS Bs say 


wae eee ete te te te te te tet 


a a — a _ —— 





MAT! 
DZRK 


113 


1 
1 
1 
1 
1 
1 
1 
! 
1 
1 
i 
1 
i 
1 
i 
1 
1 
1 
1 
1 
1 
1 
I 
1 
1 
1 


(BOD SORA E Crue Co tO BORO Conor CO aD Aa 


Boe ee 
tumr-O 


C-11-D2ZRK 
-Pil 


000i 74 
000176 


o0C200 


000210 
000216 


‘oo004e 


Sep-7e 


occese 900000 


itty 27( 1006) 


001434 
000377 001312 
001440 


M02 


obere bertnrtiong PRGE 2 


-EQUIV BITO1,BIT1 
EQUIV BITOO,8ITO 


SEE ene eer AIRE GOT AND OTHER ERRORS 


To ; RESERVED AND ILLEGAL INSTRUCTIONS 
Teinveceis ee BIT 
BPTVEC 14 SOREGKPOINT TRAP. (BPT) 
= EEN T/OUIPUT TRAP (LOT) #*SCOPEs 
pane Se PL 
EMTVEC= 30 ; s EMULATOR TRAP (EMT) *#ERRORS* 
TRAPVEC=34 ::"TRAP™ TRAP 
TKVEC= 60 t TTY KEYBOARD VECTOR 
TPVEC= 64 ::TTY PRINTER VECTOR 
PIROVEC=240 PROGRAM INTERRUPT REGUEST VECTOR 
.SBTTL TRAP CATCHER 
;#ALL =p LOCATIONS ERON 4 CONTAIN A”. +2,HALT™ 
ieceo ue FONCATCH ILLEGAL. TRAPS AND. INTERRUPTS 
:ALOCATION, o CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS 
-WOR ;;SOFTWARE DISPLAY REGISTER 
ispRec: “Hoe : ::SOFTWARE SWITCH REGISTER 


-SBTTL STARTING ON ss Es 
JMP dsSTARTR ;;JUMP TO STARTING ADDRESS OF PROGRAM 


.=2el 
MOVE § #377, d8MODE 
JMP aeSTART 
.SBTTL ACT11 HOOKS 


: © LELEKSLSE SERA ESSE SEEKS SST ESLAS ARES LESSER ASSSSLSEA FSS RFRASFERELEE 
HOOKS S REQUIRED BY ACT11 


ve SAVE PC 
SENOAD s;1)SET LOC.46 TO PNDRESS OF SENDAD IN .SEOP 
“WORD 0 :32)SET LOC. = TO ZERO 
"=$SVPC :: RESTORE P 


SEG 0025 





i N02 
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OZRKID.P11 22-SEP-76 10:10 COMMON TAGS SES 0026 


153 -SETTL COMMON TAGS 
iss Se eR NTRINe VARIOUS COMMON STORAG: LOCATIONS 
| iB Tus TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
ies 001100 1100 
160 901108 SCMTAG: ;;START OF COMMON TAGS 
11 901104 00000 SPacS: WORD 0 rare Pass COUNT 
901102 = 
ies Solis Bop SeRrLc: “eve HCONTAINS ERROR FLAG © 
164 001104 000090 SICNT: .WORD 0 s CONTAINS SUBTEST ITERATION COUNT 
165 001106 000000 SLPADR: .WORD 0 i Sora SCOPE LOOP ADDRES 
166 001110 000000 ‘ SLPERR: .WORD 0 ;;CONTAINS SCOPE FUR ERR 
167 001112 pore SERTTL: .W 0 S;CONTAINS TOTAL ERRORS DETECTLO 
168 001114 SITEMB: .BYTE 0 ;;CONTAINS ITEM CONTROL B 
169 001115 O01 ERMAX: .BYTE 1 ; CONTAINS MNAX. ERRORS PER TEST 
179 901116 SERRPC: .WORD 0 S#CONTAING PC OF LAST ERROR, INSTRUCTION 
171 0011 GDADR: - 0 3 CONTAIN AGDRES " DAT 
172 OOllee 00 S8DADR: .WORD 0 SICONTAINE ABORESS OF °BAD’ DATA 
.173 001124 900000 SGDDAT: .WORD 0 ;;CONTAINS *GO0D’ DATA 
174 001126 000000 SBODAT: WORD 0 ;;CONTAINS "BAD? DA 
175 G01130 000000 -WORD 0 ;;RESERVED--NOT TO BE USED 
176 OOlize -WORD 9 
177 901134 -BYTE ;;AUTOMATIC MODE INDICATOR 
178 001135 000 SINTAG: .BYTE 0 ;;INTERRUPT MODE INDICATOR 
| 229 (001136 900000 “WORD 0 
| 180 901140 177570 :  .WORD OSWR ;sADDRESS OF SWITCH REGISTER 
| 481 OOl14e 177570 DISPLAY: .WORD DDISP ;}RODRESS OF DISPLAY REGISTER 
| » 182 001144 177560 KS: 560 ;;1TY KBD STATUS 
| 183 001146 177562 STKB: 177562 sTTY KBD BUFFER 
184 001150 177564 $TPS: 177564 ss TTY PRINTER STATUS REG. ADDRESS 
| 185 ooriee 66 STP: 177566 ;; TTY PRINTER BUFFER R 
|. 286 001154 ~ 000 Ll: .BYTE 9 ss CONTAINS NULL CHARACTER 
|. 187 001155 O02 SFILLS: .BYTE 2 SHCONTAINE OF FILLER. CHARACTERS REQUIRED 
«Te DOLE te SFILLC: .BYTE 12 gsINSERT FILL ¢ AF 
| 188 0011 STPFLG: .BYTE 0 ;;" TERMINAL AVAILABLE” FLAG (BIT<O7>=O=YES) 
190 001160 SQUES: ASCII /?/ ; QUES ARK 
| 191 OO1161 O15 SCRLF: -ASCII <15 ;;CARRIAGE RETURN 
| 192 001162 oo00i2 SLF: .ASCIZ =< 12> LI 
| 193 jeeeeaeeninheasiesecenenenenaeihtenene rete renersveneneeacatecs 
| 1#4 001164 900000 BRacTY: .WORD 0 ;ACTIVE DRIVE WORD 
«2% O0Llee 00010 LOGA: .BLKW 10 TABLE OF ACTIVE DRIVE WORDS 
| 198 001206 152525 DRVO: .WORD 15252 ;TABLE OF PATTERN = TO DRIVE #’S 
| 293 001210 077777 “ORD 79999 
| 200 001212 d00000 -WORD — 900000 
201 003214 012345 -WORD 012345 
che pulele lesese -WORD 125252 
203 O0lé 0001 “WORD 000001 
205 OOleee 177777 -WORD = 177777 
gop Oliee4 164320 -WORD 154320 
297 001226 000010 ROTEL: .BLKW 10 STABLE OF READ ADDRESS 
Oe O01246 00004 PASTEL: .BLKW 4 ;TABLE OF PARAMETERS FOR SYSTEM #2 
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;TABLE OF CYLINOER SSE FOR AUTO 










MSKTBL: 





me ae 
st A> be: 677 

Bei 637 ‘BYTE 037 
Doles O17 "BYTE O17 
Soless sO? EVE ? 
siees By 63 
Sls at "BYTE I 
O012ee ae BASE: BYTE sey 2, BASE CYLINDER ADDRESS 
Se138- 120 “BYTE 120 CYL 8 Ener EYL NBER appReee 
01271 179 “BYTE 170 "CYL 1e0 BASE CYLINDER ADDRESS 
OOle7e ou "BYTE B40 :YL 160 BASE CYLINDER ADDRESS 
Oole73 40-303 BYTE 303 "CYL 195 BASE CYLINDER ADDRESS 
001274 00011 CYLTBL: .BLKB il TABLE OF SELECTED BASES 
001305 SECTBL: .BYTE 0 -SECTOR 9 
001308 504 "BYTE 4 SSECTOR 4 
pola? - "BYTE 7 SSECTOR ? 

13io. —«-:«6a “BYTE 13 SSECTOR 12 
901311 ORCNTI: .BYTE 0 :COUNT OF NUMBER OF DRIVES ON SYS. 1 
Sige MODE:  ‘QYTE ITF -] START 210 SELECTED 
0013) 6 PRONUM: BYTE 0 TF 0 1 PROCESSOR SELECTED 
601314 000 DRIVE: (BYTE 9 ‘DRIVE @ UNDER TEST (MAN+AUTO MODE) 
poisis CYLBAS: .BYT: 8 +a Te (MANUAL MODE) 
boisi? =o NEY: EVIE 9 SORIVE. WHICH D i WRITE. (READ OPERATION) 
0013 600 HORFLG: “8YT :pRie FOR ADER PRINTOUT ere 
peisee BEE pore tG: BE OB these SRUNT 7 
o01322 «= sD CNTSIN: /BYTE © ‘SEEK INCOM. ROUNTER 
001323 © TIMR2: (BYTE 0 SECOND PASS TIMER 
001324 09 IDEX: ‘BYTE 0 CURRENT INDEX @ 
001305 O00 CTFLG: BYTE 0 
Ool22e6 «O00 OSPFLG: [BYTE 0 

001330 EVEN 

901330 900000 KYTEMP: .WORD : TEMP. KEYBOARD BUFFER 
001332 990000 CONTRL: (WORD "TEMP, CONTROL¢STATUS WORD 
601334 BSKADR: (WORD 0 TEMP. Disk ADDRESS WORD 
001336 900000 BUSADR: (WORD 0 TEMP: 
Seisas | SoSSe8 RO ET, “WORD E000 Bog COUNT. SFo1 CYLINDER 
001244 4 CENT: “HORD -400 2 WORD COUNT 1 } SE ihe 
Se ises AaKcHT: “WORD 8 ren OPERATIONS 
001362 lead OSKTMP: “HORS 5 :SAVE OF OE URRENT DISK 
ooi3s9 O04 WRITCS: [WORD 4003 :ABRSHRL TE+GO 
aba poate E Wy 2 ZERROR. FLAG. INNIBIT ADDRESS CHANGE 
001362 og0000 PATTRN 0 :DATA PATTERN 
001364 177400 RKDS: WORD | 
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yerepeee 
Sait lle 
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etaratereteratarerats 


| ad 
— 
~~ 
Zz 
~~ 
ty 
i 
-« 
q@ 





BOR 
Oro 
£ eto 
=} 2-4 
5888 


SRS Cinta 


‘ 
a ee + re we + 8 oe ee 












DO3 


MAINOEC=11-DZ2RKI-D MACYL1 27(1008) 04-OCT-76 14:01 PAGE 7 
DZRKID.P11 22-SEP-76 10:10 ERROR POINTER TABLE 
e332 .SETTL ERROR POINTER TABLE 
235 #THIS TABLE CONTAINS J INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
Ee INFORMATION I$ OBTAINED By ING THE INDEX NUMBER FOUND IN 
26° oe OcAT TON SITEMB. Tals ger NDICATES nice ITEM IN THE TABLE IS PERTINENT. 
298 t#NOTEL: if MB IS 0 THE ONLY PERTINENT DATA IS (SERRPC) 
| 233 te ACH Tce IN THE TABLE cOMAING 4 POINTERS EXPLAINED AS FOLLOWS: 
| 30) :* EM s:;POINTS TO THE ERROR MESSAGE 
| 365 + OH S:POINTS TO THE DATA HEADER 
i te OT :BOINTS TO THE 
304 ‘@ OF ::POINTS TO THE DATA FORMAT 
30s 
306 
so 001434 SERRTB: 
ae : 5 SELRAELASSSESESSSESA SAA LESL EA LELE LLL LESLEFLELESE ELLA RELEASE LE LE 
Hi THE ERROR TABLE IS UNUSED IN THIS PROGRAM 
318 . 5 FSESELSSSSSSSSSELLLELFSESLALELELRLFLELASFLALLESAAESESELALELEL LEAT 


tutudstutites 
00D IO £ 


md Riniae Sarath yaa acd 
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a Al 


BS888888S SEBBESSSS B85 
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1440 


Falak ROBES 
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onmn 
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8 FERRE con? 
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ERROR POINTER TABLE ' SES 0030 


STARTR: CLRB_ asMODE 
START: RESE “CLEAR THE BUS 
“SBTTL INITIALIZE THE COMMON TA 
:; CLEAR OMMON TAGS ($CMTAG) AREA 
MOV aSCMTAG, RE :;FIRST LOCATION TO BE CLEARED 
CLR (RE)+ ?:CLEAR MEMORY LOCATION 
CMP sSWR,R& ;;DONE” 
BNE . ;;L00F BACK If NO 
MOV #STACK, SP ::SETUP THE STACK POINTER 
:; INITIALIZE A FEW vec tons 
V SS TRAP, JBTRAPVEC 


MO »: TRAP VECTOR FOR TRAP CALLS 
MOV 8340, DRTRAPVEC+e; LEVEL 7 
MOV #SPWRON C’s:POWER FAILURE VECTOR 
MOV #240, DBPWRVECt+E :: ? 

::SIZE FOR SWITCH REGISTER. IF NOT FOUND OR IT IS 

: s EQUAL 10 woie SETUP FORA SOF THARE SUITCH REGISTER. 
NOV BENS SEERRVEC iieey uP ERROR VECTOR ES 
MOV #0SWR. SW :: SETUP FOR A HARDWARE SWICK REGISTER 
MOV #ODISP, DISPLAY }:AND A HARDWARE DISPLAY REGISTER 
CMP 8-1 ,9SHR :: TRY TO REFERENCE HARDWARE SiR 
BNE 6 ::BRANCH IF NO TIMEOUT TRAP nQgCURRED 
os S$ ::BRANCH IF NO TIMEOUT 

64S: Hoy #65$, (SP) ::SET UP FOR TRAP RETURN 

S$: ¥ :;POINT TO SOFTWARE SWR 


MO #SWREG, SWR 
MOV #DISPREG, DISPLAY 
663: MOV (SP}+,d8ERRVEC ;;RESTORE ERROR VECTOR 


PC STKINT ;INITIALIZE THE TTY INTERRUPT HANDLER 





.SBTTL _TYPE PR 
:;TYPE THE NAME OF THE PROGRAM IF FIRST PASS 
INC a-1 s;FIRST TIME? 
tee ype ASC IZ. STRING 
“sBrtL Getevacut’For sorruare stittcn RecisteR ; 
TST aaa ;;ARE WE RUNNING UNDER XXDP/ACT? 
BNE «698 :TBRANCH IF YES 
CMP 0 SUR, BSWREG ISOFTHARE SWITCH REG SELECTED? 
BNE 708 ;;BRANCH IF _NO 
GisuR !IGET SOFT-SWR SETTINGS 
gs: MOvB 81, SAUTOB ;;SET AUTO-MODE INDICATOR 
BF 675 » GET OVER THE ASCIZ 
age: -ASCIZ <CRLFD /RKLL UTILETY PACKAGE /<1S>< 12> MAINDEC=11-DZRKI-D/<CRLF> 
TSTB © ABMODE 
ae 
MP. a BSECOND 
18:  TSTB  STFLG SPRINT ONLY THE FIRST TIME 
BQ «=s«108 
MPs TABLTY 
CB STFLG 


10$: IN 
STRT1: CLRE OSPFLG 
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GET VALUE FOR SOFTWARE SWITCH REGISTER SEG 003: 
eae te SER Tue ae ciz 
: H Ls 
iigs8 -ASCIZ OF, cu csscamys NAME TYPE. 
"TYPE 7§ s; TYPE ASCIZ STRING 
if tes ::GET OV 3k t2 asciz 
ie? SASCIZ << 15)<12>/ INDEX Ov 
, TYPE ih} 3 TYPE ASCIZ STRING 
BR beg T OVER THE ASCIZ 
jib: "ASCIZ <18)<1e>/COMPATIBELITY PACKAGE 7 
; TYPE 718 $3 TYPE ASCIZ STRING 
cs T OVER THE ASCIZ 
ii7is: "ASCIZ <15><12>/0SCILLATING SEEK PACKAGE 2/ 
Fi TYPE 738 s: TYPE ofisgtz z STRING. 
41738: "ASCIZ (15)<12> /-FORMATTER- SE TRESRE etait cy 
—. Tye 75$ ;;TYPE ASCIZ STRING 
as Pug :GET OVER THE ASCIZ 
ij25 "ASCIZ <15><12>/RKOS CONTROL PANEL TEST 4 
— eG .778 ;:TYPE ASCIZ STRING 
=n d65 *GET OVER THE ASCIZ 
4g?! -ASCIZ_ <1) 12) /RKOS CONTROL PANEL TEST 82 S/ 
pyre Reine bese 
i238: -ASCIZ 4) Meola as tiSeen EET b/ 
F TYPE p z :3 TYPE ofScte, STRING. 
iigis: SASCIZ <15><12>/POWER chi fee” (WRITE) TEST 77 
she TYPE : 3 TYPE ASC TRING 
BR 4 ge 5 aSciz 
jigs: ASCIZ tibia» cig)<ip ittees 
a TOSS :GET THE TEST NUMBER FROM THE OPERATOR 
MOV (SP)+. RO :STORE IT IN RO 
gee ae” 
ROL RO ALIGN THE NUMBER FOR DISPATCHING 
IMP QREGIN(RO) :GO TO THE SELECTED TEST 
NG: TYPE $QUES 372° 
oe TASLTY . 
:TEST ENTRY DISPATCH TABLE. 
BEGIN: STRTI 
SECT.3 
SECT.2 
SECT. 1 


ee eee 














bis: 


} 
| MAINDEC-11-DZRKI-D MACYL1 27(1006) O4-OCT-76 14:01 PAGE 10 
| OZRKID.P11 = 22-SEP-76 10:10 GET VALUE FOR SOFTWARE SWITCH REGISTER 
4 92612 O1g744 SECT.O 
«AB BSSEIS. 515320 SECT.4 
428 16 9205 SECT.S 
423 002620 621402 SECT.6 
a3 } 
j S31] 
4 .SBTTL ‘SOMPATIBILITY TEST 
<5 ;ROUTINE TO Pick UP THE DRIVE NUMBER TO BE TESTED 
+3 [ON SYSTEM 
437 002622 900240 SECT.3: NOP :NO-OP 
| 938. oe 4401 002632 tine eee : TYPE ASCIZ STRING 
«dag SRERSS ABSIE ae S ee MER SHE pectz 
$41 -:65$: -ASCIZ <15)<12>/TERMINAtE ITH. R oh / 
442 OO2bE4 b4s: 
443 OOS6E4 104401 002672 TYPE 675 ss TYPE. ASCIZ STRING 
444 902670 00041? BF &$ wisn SE ASCIZ 
— -67§: .ASCIZ <15><12>/DRIVE RS ON sve EM I=/ 
3? 1 
a3 eee oi MOV (SP)+,R0 sPICK UP THE ADDRESS OF THE INPUT BUFFER 
++ 12701 00116 HOV sect] ier apie ,BObRESS OF THE LOGICAL UNIT TEL. 
es Cc 
ef sees eae abe 1S: CLR KYTE ict Eas TEMP 
452 002750 112037 001330 MOVE *RO)¢ DeKYTEMP GET THE FIRST DRIVE # 
453 002754 122737 000054 001330 CMPB 0 «#S4,QRKYTEMP = SIS IT A COMMA THAT was TYPED? 
15 pee 001 BEQ 1$ IF YES g0 BACK 
eeoa 000060 001330 Sug #60,a8KYTEMP MAKE ASCII A DRIVE 
| 5 002772 100403 BMT 2g IF RESULT NEGATIVE BRANCH 
«457 «902774 004737 opyose ISR PC, STORE : IF RESULT POSITIVE JUMP 
| 458 003000 00076: eee :AFTER STORING GET 
453 003002 122740 oo00se 28: CMPB 40s, - (RO) WAS NEGATIVE RESULT A TERMINATOR? 
SE: Boseie Soaeas FER TE NO BED CHa 
362 1 004122 ILEGAL IF NO CHARACTER JUMP 
| 462 003014 022701 001206 38: CMP wD EL IS THE TABLE FULL 
«BS Besoss Br25F onan ee ome «SIF FE TRELE WITH DOWN INDICATOR 
nag BpSSSE 4 : > G0 KARO CHECK 
467 sROUTINE TO DETERMINE IF THERE IS A SECO 
WES :SYSTEM AND IF SO TO GET THE NUMBER OF THE 
463 :DRIVE ON THIS SYSTEM 
471 003030 SECSYS: 
«$72 «003030 104401 003026 TYPE S$ 5s TYPE. ASCIZ STRING 
_  -473°«003034 O0041é BR bug :GET OVER THE ASCIZ 
mt pigs: "ASCIZ <1&><12>/IS§ THERE’A SECOND SYSTEM?” 
a2 Soe678 poneuo NOP 
477 003974 104407 RDOCHR ‘READ A CHARACTER 
47 202076 O1e637 901330 MOY (SP)+, D#KYTEMP GET THE RESPONSE 
478 03102 104401 001330 TYPE KYT :ECH 
460 003106 622737 000131 001330 CMP 131, aeKYTEMP :WAS IT A “Y" (FOR YES)? 
481 003114 OO1411 BEQ PRO2 LIF YES BRANCH TO PROCESSOR 2 
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cPnee IBILITY Mi Ph 
oMp #116, 08KYTEMP  ;WAS RESPONSE LEGAL (N FOR NO)” 
Ero tCéRAG HOS BEEP ONE FE 
TYPE 67g >: TYPE ASCIZ STRING 
ge bbs ::GET OVER THE ASCIZ 
i ASCIZ /?/ 
BR SECSYS :G0 BACK ASK AGAIN 
PRO: ei 8377, J#PRONUM SET FLAG TWO PROCESSORS 
TYPE 65s TYPE ASCIZ STRING 
BR ~3 :3GET OVER THE ASCIZ 
iige® ASCIZ <15><l2>/DRIVE & = 
ROCHR ;READ A CHARACTER 
MOV (SP)+,QeKYTEMP PICK UP THE ORESPONSE 
TYPE  ,KY ECHO 
SUB REO, dSKYTEMP = :MAKE IT A NUMBER 
BM iE NOT A NUMBER. BRANCH 
#10, d8KYTEMP :3S IT A LEGAL #? 
BLE NP :IF_ NO BRANCH 
SWAB 2S SKY TEMP :GET THE DRIVE # TO THE HIGH BYTE 
BIS #BIT14,a8KYTEMP :SET THE SECOND SYSTEM BIT 
MOVB  a8ORCNT1,RS :GET THE DRIVE COUNT 
ROL S jMAKE IT AN INDEX 
MOV DBKYTEMP,LOGACRSS :STORE THE SYSTEM #2 WORD 
BR GO cb DO THE TEST 
BADINE 7 
TYPE 6S$ ;; TYPE ASCIZ STRING 
of b4§ $:GET OVER THE ASCIZ 
iigss: ASCIZ /?/ 
=e PRO2 - 360 BACK ASK AGAIN 
PROL: CLRB #§ asPRONUM !CLEAR THE FLAG ONE PROCESSOR 
;THIS IS THE ACTUAL PROGRAM 
GC: MOV #L0GA.RO :GET THE TABLE ADDRESS TO RO 
CLRB = MBIDEX :CLRB THE I 
BR G02 :BRANCH AROUND INCREMENT ROUTINE 
GOl: ADD 2.R0 s INDEX THRU THE TABLE 
CMP #0RVO,RO : DO 
BEG EXIT LIF FES GET OUT 
G02: TST RO) 18 THE DRIVE ACTIVE 
BPL G03 IF YES BRANCH 
BR G01 ; 
G03: MOV 
JSR 
ISR 
JSR 
ae 
EXIT: MOV 
XTFRE: CMP 
BEQ 
BIT 
BNE 
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DIRKIO. PII Aero epene ToS1 cPnestisierre ter 
538 003366 00S7, TST (RO)+ 
Sees aon 
4 74 RAISES 004230 ISR perBes 
E42 003400 004737 O0s612 TSR PC’ RDL INK 
543 003404 905720 TST (RO)+ 
ay eos0 000761 BR EXTFR2 
SS 00341 EXITX: 
e4é 302410 104401 O03416 TYPE S58 $3 TYPE ASCIZ STRING. 
z 0034 000404 9 
“2 -:65$: .ASCIZ “up enais 
E49 003426 £45: 
$50 OO3426 000137 oo1440 IMP aaSTART ; RESTART 
S5¢ THIS u PROCESSOR #2 CODE. THIS ROUTINE ASKS FOR AND UNPACKS THE CONTROL 
532 :WORDS FROM THE FIRST PROCESSOR. 
S55 003432 SECOND: 
S56 002432 104401 003440 TYPE &S$ 53 TYPE ASCIZ STRING 
557 903436 O00415 ge 45 ‘GET OVER THE ASCIZ 
soe 65S: ASCIZ <1)<12>/COMPATIBEL ITY-SYSTEMS2/ 
| erg Sos47e 012704 00200 bas: MOV #200. R4 :SET UP MASK BIT IN Ra 
561 002476 piece 090591 MOV $FoRs :SET UP WORD COUNTER IN R3 
093592 Ole7de OO1166 MOV toca, Re : GET YE TABLE ADDRESS 
| §63 003506 INSYS2: 
«S64 «003506 104401 O03514 TYPE 65$ 11 TYRE ASCIZ STRING 
S65 003512 o00405 is b4§ :GET OVER THE ASCIZ 
| ee --65§: .ASCIZ <15><l2>/WORD 7’ 
| §67 902526 b4s: 
| §€@ 003526 oo0240 NOP 5 eee 
| S69 003530 O10346 MOV R3,-(SP) :GET READY TO TYPE WORD COUNTER 
| §70 003532 104403 TYPOS 
| §7] 903534 006 .BYTE 6 
E72 002535 000 “BYTE O 
| §73 003536 104401 903544 TYPE 675 ;; TYPE ASCIZ STRING 
 §74 o032542 o00401 BR b6$ 33GET OVER THE ASCIZ 
| 575 --67§: .ASCIZ /=/ 
576 o02546 : 
| §77 003546 104411 RDOCT 
| §78 003550 012600 MOV (SP)+,RO PICK UP THE OCTAL W WORD 
£78 0902552 110001 MOVB = RO, R1 :GET THE FIRST DRIVE T 
| §80 903554 000300 SWAB RO’ :GET THE SECOND DRIVE oor Ro LOW BYTE 
| 581 903556 o42700 177400 BIC #177400, RO :CLEAR THE UNUSED BITS 
| §82 g03562 o42701 177400 BIC $177400-R1 :CLEAR THE UNUSED BITS 
683 OO356€ O06000 - ROR RO ?ROTATE RIGHT RO 
| §84 003570 103003 BCC 23 “IF CARRY IS CLEAR BRANCH 
| §85 003572 052700 ocooz00 BIS #BIT7,RO *SET DOWN BIT IF CARRY SET 
| §86 003576 O00041 . cLe :AND CLEAR THE CARRY BIT 
| §87 003600 O06001 23 ROR RI : SAME R1 
002602 103002 BCC 2$ :IF NO ERROR, BRANCH 
529 003604 052701 oo0200 BIS #8177,R1 IF ERROR SET 
 §80 003610 110162 90000] 2S: MOVB R1,1(R2) ;SET DRIVE FIRST IN TABLE 
 §6] 0903614 6047327 o04016 ISR PC’ MASKER :CALL THE MASK CONTROL SUBROUTINE 
| §$2 003620 ilodbe easy MOVE RO,1(R2) :SET DRIVE SECOND IN TABLE (NEXT WORD) 
«83 «-003624 004737 9004010 ISR PC’ MASKER :CALL THE MASK CONTROL SUBROUTINE 
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174000 
001206 
100000 


005214 
004230 
005064 


00S61e 
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003642 
040000 
003634 
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001330 


dated 
0013i1 


COMPATIBILITY TEST — $EG 0035 
INC 3 s INCREMENT THE WORD COUNTER 
 EXITA: eG ANS YRS, £89, PGK AUR. OE ast HRER 
: ROR RY sWITH ALL 75 
BCC EXITA $60 BACK olf 
EXITB: BIC #174000, (R2) CLEAR D oun <i AN SEcé OND SYSTEM Its AT TABLE 
Hey Re Re oe The SOINTER 
FIL.DN: che #DRVO, Re THe LE oa 
MOV sIT1S, (R24 ij FILL 5 ABLE 
FIL. :G0 BACK TRY AGAIN 
23: MOV (Rm :GET THE WORD TO RI 
ISR PC’ MASK 
JSR PC; DO2 :FORM DRIVE # FOR MOUNT 
ISR PC’ WRLINK {WRITE NEW iN 0 
JSR PC’ RDLINK READ SAMPLE (ALL DRIVES) 
TYPE 65$ $3 TYPE AscIZ STR ING 
Pecre 8 ELS Bee 
jigs: SASCIZ <15><12>/DONE syttfa 2 RESTART SYSTEM 1, TYPE WORD / 
"MoV (RO), -(SP) GET WORD FOR SYSTEM 1 AND TYPE 
TYPOS 
ae 
1S: HALT sHALT (FINISHED SYSTEM #2) 
BR 1$ G0 BACK TO HALT 
: THIS ROUTINE SETS UP THE MA SK BI N THE LOG TABLE FOR 
:SYSTEM #2, IF A DRIVE IS DO 3 IS SET BUT THE MASK 
IS SHIFT FIED. 
MASKER: TST (R2) :IS THE DRIVE UP 
BMI RETRNY iif NO, BRANCH 
MOVB = RY, (Re) VE tHE MASK BIT IN THE TABLE 
RETRNY: ROR RY tROTRT E THE MASK 
BCC 1$ DONE? IF NO BRANCH 
HOV #EXITB, (SP) :SET T uP FOR RETUR 
1S: BIT #B8IT14, (R2) :IS THIS SYSTEM # 2°S DRIVE? 
Q 2s . NCH 
HOY HEXITA, (SP) ;SET UP FOR RETURN 
2s: ADD #2,R2 : INDEX THRU LOGA TABLE 
RTS PC : RETURN 


;ROUTINE TO BUILD THE ACTIVE LOGICAL UNIT TABLE 
001330 STORE: oe #10,d8KYTEMP p15 INPUT A LEGAL NUMBER? 


BLE ILEGAL it *NoT BRANCH 

SWAB aekYTEMP ALIGN DRIVE # FOR TABLE 
MOV OeKYTEMP, (R1)+ PUT THE WORD IN THE TASLE 
CLR aekYTEMP :CLEAR THE TEMP WO 

INCB aeDRCNTi ;INCREMENT THE COUNTER 





Beo3s 


SRREBReS 


BL DO BD 
B8a8-2 
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COMPATIBILITY TEST 






KO3 


CMP #ORVO,R1 31S THE TABLE FULL? 


Re pert ETF NRE TURN 


: HOY aSECSYS, (SP) sa eee FULL SET UP FOR SYSTEM #2 


: oy SAUTSL2, (SP) itt rian EGAL RESPONSE, GO BACK 
TYPE 5s :: TYPE BSc1z re: ING 
chat t4 ::GET OVER AscIz 


-ASCIZ /ILLEGAL INPUT/ 
RTS PC ; RETURN 


nay ROUTINE TS ~ Ai dy # AND BUILDS A TABLE Oe 


pint RODRESS RUSE BY Y WRITE (RO)SADDRESS OF ACTIVE 
ge CAL TRACE T tS AND CLEGRS THE MASK BITS 
TABLE AS OPERATIONS “T INDICATE 


;GET THE LOGICAL UNIT ACTIVE WORD TO Ri 


BIT seTTLARI :1S i ON SYSTEM #2 
BEG cycle oF M8 ef ANCH 
J a#SECONE © TO SYSTEM #2 

tg SL OEN TES) Re sGE1 Te Ane o nee 

: JSR Pt MBSK : : CALL FE EE 8 BEOUTINE 
MOV #LOGA,R3 :GET TABLE ADDRESS TO R32 
CMP RO.R3 IS ACTIVE ADDRESS=TO FIRST ADDRESS 
BNE TF NO BRANCH 
BIS Re. (R3)+ !IF YES SET BITS TO SHOW WRITE 
R :BRANCH TO SEE IF 
BIC Re (R3)+ :CLEAR BITS TO SHOW OVER-WRITE 
CMP #ORVO, R3 : DO 
SNE IF NO GO 
SWAB a :GET DRIVE # TO LOW BYTE 
NOP id 
fe ain + eT aR THE URUSED BITS 

& ; 
MOVE Heth IVE ike fue BRI VE 
ROL Fe sSHIFT THE DRIVE TO 
ROL Re GN IT FOR THE DRIVE ADDR. 
ROL Re KEEP IT MOVING! 
ROL. Re LITTLE MORE! 
ROL Re 3 LT It Is 
MOVB Re, aeDSKTMP+1 
MOVB Re. a#DSKADR+1  ;GET IT TO DISK ADDR. TEMP. 
ISR PC; MOUNT :CALL MOUNT 
RTS PC : RETURN 
INCE De IDEX ; INCREMENT THE INDEX 
MOVE #5, 2#ECNT eet ERROR CNTR Tos 
MOVB #3, JHCNTSIN :SET SIN CNTR TO 3 
TYPE 65$ paT¥ PE ASCIZ STRING 
GVER THE ASCIZ 


BR 545 
"ASCIZ <15><12>/MOUNT PACK ON SRIVE / 
MOV ORIVE,-(SP) ;;SAVE DRIVE FOR TYPEOUT 
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OZRKID.P11 22-SEP-76 10:10 COMPATIBILITY TEST 
708 904362 104403 TYPOS 290, TYPE--OCTAL ASCII 
oe BR c BBA ‘EVIE A Ebel ab thc ZEROS 
366 104401 004374 TYPE 67S ; TYPE ASCIZ STRING 

Oo4372 Oo0415 T 





cl bs 
j i878: "ASCIZ (15)<12)/MAKE PAAK WRITE ENABLE/ 


710 
711 
sig see 004424 cbs: TYPE 33 s LYRE 12 STR 
at $8 Apa BR e8¢ $i te MER fue cect 
ct media jib%s: LASCIZ <15><12> /PRESS chitinue WHEN DRIVE RDY/ 
717 004474 990090 HALT 
718 004476 904737 ocO4sO4 isk PC, INITIL CALL INITIALIZER 
233 oo4so02 800207 RTS PC RETURN 
é 
el ; THIS ROUTINE INITIALIZES A DRIVE AND INSURES THAT IT IS READY AND 
see :WRITE ENABLED, IT IS ENTERED FROM MOUNT OR FROM EXECUTE IF OPERATION FAILS 
7; 1 INITIL: MOV RO, -(SP) ; SAVE 
352 tae Bt 001234 MOV asOSKADR, RO :GET THE DRIVE # TO RO 
726 OO4S5i2 042700 901777 BIC #1777,.R0 :CLEAR THE UNUSED BITS 
727 OO4S1E 005037 boi 3ds INITI2: CLR aeTIMR :CLEAR THE TIMER 
? 105037 001323 CLRB = MATIMRE 
| 723 004526 00240 NOP eee 
730 904530 919077 74642 MOV RO, IRKDA :GET DRIVE s TO ’DA’ REGISTER 
| 731 OO4534 O1 Ol 174626 MOV #1 aRKCS :ISSUE CONTROL RESET + GO 
| $35 Boueue pe rere 1s 7293 oRkes DID CONTROL READY SET 
fo: y Boies 100423 BMI $ ?IF YES BRANCH 
| 735 004554 005237 oo134e INC aaTIMR :IF NO INCREMENT THE TIMER 
736 OO4560 9001372 BNE 1 iI TIMER NOT ZERO BRANCH 
737 OO4562 104401 904570 TYPE 65S sTYPE ASCIZ STRING 
| 738 O04566 O00415 SR 64g :GET OVER THE ASCIZ 
| 739 -65$: .ASCIZ <15><12>/CONTROL RESET TIME OUT/ 
| 740 oD4ez22 bag: 
| Pat OO4622 010077 174550 23: MOV RO, IRKDA ;DRIVE NUMBER TO 'DA’ REG. 
| 748 004626 105777 17453 TSTB = @RKDS 1S DRIVE READY 
743 004632 100415 BMI 3$ IF YES BRANCH ¢ 
| 744) OO4E34 «104401 oD4eHe TYPE 675 53 TYPE ASCIZ STRING 
745 004640 000411 BR b&$ “GET OVER THE ASCIZ 
| = 746 +3678: .ASCIZ <15><12>/DRIVE NOt READY? 
| tn Oe mis ees: BR 2 :G0 BACK TRY AGAIN 
| oae Bbaeee ee O00040 174470 23S: BIT tte JRKDS IS DRIVE WRITE LOCKED? 
poate Tn 004704 eee 69% sIF NO, abe ty ere RING 
ppisre o4i4 BR 68g SCET OVER THE ASCIZ 
733 a jib98: SASCIZ <15><12>/DRIVE aise’ PROTECTED/ 
| 755 004734 o00€70 BR INITI2 GO BACK TRY AGAIN 
756 004736 005037 001346 4g: CLR daTIMR FP AR THE 
_—«- 757—-—«OO4742 ~=010077 174430 MOV RO, JRKDA GET SHE HERIVES - TO 'DA’ REGISTER 
| 758 OO474— 012777 Oo0015 174414 MOV #15, ORKCS ; ISSUE DRIVE RESET + GO 
| 763 904754 004737 O05574 ISR PC, SMTME 
| 760 OO04760 105777 174404 cs: TSTB = BRKCS 
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oan Ts. Pil if: Sep. “76 10:1 cSMpataterry fer SEG 0038 
re 78 900100 174370 IT #100, 3RKODS Pe thane READY BIT SET? 
: Bere 
764 001346 NC $TIMR FROREMENT™ THE TIMER 
765 BNE 3s a0" BACK AND CHECK IF TIMER NOT O 
268 001323 STB sTIMR2 
10 O01 BNE 7§ 
005012 105237 001323 INCE  asTIMRe 
768 005016 000760 “ SR s$ 
77 RRERSE 104401 o0s026 TYPE 713 $3 TYPE ASCIZ STRING . 
772 O0S024 o00414 BR 50g T OVER THE ASCIZ 
773 hori i718: SASCIZ <15><12>/DRIVE pitt TIMED OUT/ 
775 005056 000727 BR 4 ;G0_BACK, TRY AGAIN 
ok 005060 012600 6$: MOV (SP)+,RO REST 
oer 005062 000207 .. RTS Po RETURN TO CALLER 
779 sTHIS ROUTINE TAKES CARE OF ALL LINKAGES FOR 
780 EXEC TE ROU TINE. ITF ADDRESS AND sete UP ALL THE 
ol REGISTERS HE WRIT Re ION 
783 O0S064 105037 001316 aoe CLRB § a#COMND s INDICare WRITE OPERATION 
784 0905070 o00240 N #44 
| 785 005072 113701 001314 ” MOVE  @#DRIVE,RI1 PICK UP THE DRIVE # 
78& 005076 O06 101 ROL RI *MAKE IT A WORD INDEX 
787 005100 016137 001206 00132 1S: MOV DRVO(RL) DePATTRA “PICK UP THE DATA PATTERN 
| 7B8 005106 004737 oNSe62 JSR PC, CYLADR CALL CYLINDER ADDRESS 
| 789 005112 000401 BR 25° ;RETURN HERE IF NOT 7tBSI BASE 
| 790 605114 900207 RTS PC RETURN HERE IF L 
731 005116 012737 001362 001336 23: MOV #PATTRN 3¥BUSADR GET THE ADDR Ese ar THE OUTPUT 
792 005124 013737 O01342 001340 MOV DHCYLCNT, a#WRDCNT ;GET THE WORD COUNT 
733 005132 013737 001354 001332 MOV JeWRITCS, a CONTRL *GET THE CONTROL + STATUS WORD 
794 O05140 004737 005362 ISR PC EXECU :C y 
| 795 905144 032737 000020 001334 BIT #81T4, J#DSKADR sia THIS WRITE SURFACE "1"? 
| 796 005152 001006 BNE F YES BRA 
| 797 005154 052737 ooo020 001324 BIS #BIT4, JHDSKADR :SET SURFA cE one 
738 005162 105137 001362 COMB =: a#PATTRN MAKE IT SURFACE ONE DAT 
| 799 005166 po0753 BR ;RELOAD REGISTERS AND EXECUTE 
| 00 005170 042737, 000020 001334 38: BIC #81T4, JBDSKADR ;SET UP FOR SURFACE “O™ 
Bes eu ee gue ggrettnn TIME Hoag SENEETEDONE. orPser Tate 
ESS Bpes59 possos oose72 JSR PC, CYLOFF GET THE CYLINDER VALUE 
804 O05210 op074e2 BR 2$ “RETURN HERE IF MORE TO READ 
EDS O052i2 000207 | RTS PC ?RETURN HERE IF FINISHED 
| 807 ; THIS ROUTINE EXPECTS TO FIND A MASK IN R2, AND FROM THIS MASK 
| 808 ‘BUILDS A TABLE (AT CyLTBL) OF CYLINDER ADDRESS OFFSETS; THE TABLE 
£03 :IS TERMINATED BY A #377 
j 
| B11 005214 o10s4e MASK: MOV -(SP) SAVE RS 
gle posele b4e702 177400 BIC FP7400_ Re sCLR THE UNUSED BITS OF THE MASK 
| Eig 012703 oo0200 MOV #200,R3 cet UP THE COMPARE MASK 
| 815 005230 oOS004 CLR RY CLR THE INDEX COUNTER 
B16 O0Se32 012705 001274 MOV #CYLTBL,RS :GET THE CYLINDER TABLE ADDRESS 
| 817 005236 030203 1S: BIT R2,R3 :IS THE MASK BIT SELECTED IN BASE 
| 
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DZRKID.P11 22-SEP-76 10:10 COMPATISILITY TEST SEQ 0039 
gig oo0s240 001401 BEQ 23 NO 6B ANCH 
19 O05242 110425 MOVE RY, (RS)+ HE CYLINDER BASE TO THE TABLE 
005244 105204 23: INCB ORY Bea BASE 
gel 005246 006003 ROR R3 OTATE THE COMPARE MASK 
005250 103372 BCC 1$ DO 
823 posese 116718 000377 Ov #377 (BS) iT NONE LORD FINISH FLAG 
ess BoeSES Bisse RTS pc ses OnE, Rs TO CALLER 
827 : THIS ROUTINE FORMS A CYLINDER ADDRESS FOR BOTH THE READ AND WRITE ROUTINES 
828 ‘WHEN THE BASE TABLE IS FULLY INDEXED IT RETURNS TG PC+2 OF CALLER 
830 O0S262 012703 ODl2bE CYLADR: MOV #BAS :GET THE CYLINDER TABLE ADDRESS 
831 O05266 Ole702 001274 CYLQD2: MOV #CYL a, Re :GET THE SELECTED CYL BASE ADDR. 
005272 111204 CYLOFF: Move (Re), ;GET THE SELECTED CYL VALUE TO R 
833 005274 O00540 + ¥% 
005276 122704 000377 ae is i. THE TABLE TERMINATOR? 
825 005302 O01416 BEQ BASIC ties ANCH 
B36 005304 o0co46 CLR (SP) SURE CLEAN WORD 
837 005306 111316 MOVB (R3) (SP) :GET THE CYL ADDRESS ON THE STACK 
838 005310 O62604 ADD SP)4+,R : AND 7 TO THE SELECTED OFFSET 
839 005312 006104 ROL A ;SH IFT THIS RESULT 
840 005314 06104 ROL RY -TO ALIGN THE NEWLY FORMED 
841 005316 104 ROL RY ‘CYLINDER ADDRESS WITH BITS 
G42 905320 104 ROL RY 5 THRU 12 OF RK DA AND 
843 005322 006104 ROL :STORE THIS IN DSKADR 
844 005324 042737 17777 001334 BIC 8017777 JSDSKADR: CLEAR ALL BUT ‘pave NUMBER 
845 005332 050437 001334 BIS RY, J#DSKADR :PUT IT IN DSKA 
B46 005336 000207 RTS PC’ 
847 005340 005203 BASING: INC R3 ;PICK UP ADDRESS OF NEXT BASE CYL. 
s4e O05342 900240 NOP 
848 005344 O22703 of1274 CMP #CYLTSL,R3 ‘ARE YOU FINISHED? 
850 O05350 001401 BEG RETRN3 iif YES 
851 o005352 900745 BR CYLAD2 NO G 
852 005354 O62716 oooon2 RETRN3: ADD #2, (SP) : SET-UP FOR PC+2 
e52 005360 000207 RTS PC : RETURN 
Bes ROUTINE TO PERFORM INDICATED FUNCTION AND CHECK FOR 
gSe :DONE AND ERRORS 
858 O0S262 005037 O01346 EXECUT: CLR aeTIMR - CLEAR THE TIMER 
859 O0S366 o00240 : NOP HALT HERE TO CHECK COMMAND ABOUT TO BE EXECUTED 
860 005370 105037 001323 CLRB  aaTIMRe :CLEAR SECOND TIMER 
G61 905374 013777 601334 173774 MOV JSDSKADR,IRKDA LOAD THE DISK ADDRESS REGISTER 
gee posH0e 013777 001336 173764 MOV JSBUSADR; aRKBA LOAD THE BUS ADDRESS REGISTER 
863 005410 013777 001340 173754 MOV DWROCNT, IRKWC LOAD THE WORD COUNT REGISTER 
864 005416 013777 001322 173744 MOV SECONTRL, "aRKCS 31 OAD THE CONTROL REGISTER 
Bs 905424 004737 005574 ISR C, SMTME* TIME 1- ‘ 
866 005430 105 173734 CHECK1: TSTB 3K RECS hat Eon BBL Seay SET 
ee Fea elim =i? Been 
A Dose 057 27 001360 13 ec ERE s ERROR See wah a 
87] Spe acs ppeaas 001360 CL ie Clea EA THE FLAG 
672 oos4s4 000742 BR EXECUT Y AGAIN 
873 Oos4S6 000207 1S: RTS PC % 
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COMPATIBILITY TEST 
TIME: INC asTIMR 
NOP 


NE CHECK] zi 
TSTB 438s @BTIMRE SECOND TIMEOUT? 
SNE 1$ IF YES BRANCH 7 
INCE 87 IMR2 INDICATE SECOND TIMEOUT 
Bs CHECK 1 760 BACK 
18: ISR PC INETIL 
TYPE &s$ ii TYPE sae! ale TRING 
6 es, ;GET Ove Asciz 
it: .ASCIZ cre) /Timep ot} °6N SOE RATION RETRY IN PROGRESS, 
EXECU 


SMTME: MOV ae50- SeTINR 

18: DEC aaTiMR 
BNE 1$ 

RTS PC 


: THIS ROUTINE CHECKS TO TO SEE IF B DRIVE 18 Is ACTIVE Ray A 
sexreCT rE Dat Barbe ese 3 "p TEE AND SER cae cates" DRESS 


ROLINK: MOV RO,-(SP) s SAVE RO 


BIS8 $8377, a8COMND t FNDICA TE READ OPERATION 
#L0GA, 1 :GET THE TABLE ADDRESS TO Ri 

MOV SSECTBL,RS :GET THE SECTOR TABLE ADDRESS 
RO :SKIP OVER THE INDEX, FIRST PASS 


8 
B2335% 
& 


:ADD 2 TO THE AODRE 

CMP sORVO,RI !ARE YOU THRU THE ENTIRE TASLE 

SEQ EXIT LIF YES EXIT 
RDe: TST (Ri) :IS THE DRIVE ACTIVE 

BPL RD3 :IF YES BRANCH 

5k RDI [IF NO GET NEXT WORD 
RDS: MOV (Rl). RO :GET THE ACTIVE WORD TO RO 

MOV RO,Re :COPY THE WORD 

SWAB OSséRO ;GET THE DRIVE # TO THE LOW BYTE 

BIC $177770,R0 :CLR ALL BUT THE 

MOVE 9, daWRTNEY :SAVE THE DRIVE 8 

ROL RO -MAKE IT et INDEX 

MOV DRVO(RO),38PATTRN :PICK UP THE DATA PATTERN 

ee A CLL THE WK ERO TIE 

cra RDS ?RETURN HERE aaah NOT LAST BASE ADDR. 

BF RDI -IF LAST BASE ADDRESS, RETURN HERE 
ROY: Is SEOSKTMP DaOSKADR ; SET THE DRIVE # BITS IN DISK ADDR. 
ROS: BISB8 (RS)+,aeSKADR ;SET THE SECTOR BITs IN DISK ADDR. 
ROE: MOV SROBUFF , J8BUSADR’ "poet THE BUFFER ADDR. 


MOV DaSECCNT, aeurocnt : :GET THE WORD COUNT 
MOY DBREADCS: JBCONTRL jobT TH THE READ CONTROL WORD 


ISR PC, EXECUT :D RE 

ISR PC’ ROCHK :CHECK THE DATA 

BIC At DSOSKADR § :CLR THE SECTOR BITS IN DISK ADOR. 
CMP #ORENTI.RS ‘WAS THIS THE LAST SECTOR? 


o~ 
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| $30 996000 901352 
«RE RREREE Baer SS 
| 933 006014 00100 
= Bae lee 
| a 
| # Be ee 
$3? 006032 0427 
| esq Soetg Abbi e° 
ac DOeOME ors? 
| = SRESSS | BBOTSE 
S44 O0605E 012600 
S45 006960 600207 
46 
gu? 
s-5 
Set 
/ 956 032777 
| 951 006070 oode4o 
Pit 001429 
| 3 006074 O1e777 
S64 006102 904737 
| $65 OO8196 012777 
SSB 006114 105777 
S67 O06120 1 
Se O06le2 105 
S6S 006126 901002 
| 960 008130 900137 
, $1 006134 032777 
| 2 O0e14e 
$3 SOEIS4 O01 
| $64 OO8I4E O1 
S65 06154 p1e777 
| 26 D0616z2 737 
| 967 OO6166 105777 
«$68 O06172 100375 
S63 006174 
| §70 O06e02e 601771 
| $71 DO6204 105337 
| §72 O06210 601106 
a3 peste eae 
$75 poeses 001421 
S76 O0b222 104401 
$77 O0b2c6 is 
$76 
$75 o0b2t2 
S60 S0beb2 oOO4IS 
zee Spree y 104401 
$63 Sess 00041 
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COMPRTIGILITY TEST 


gi] Sere Sanexace 
815 88174, J8DSKADR 
cone aePATTRN 
RO?: sic #8174. JeDSKADR 
COMB 3=s a sPATTRN 
INC Re 
ISR PC, CYLOFF 
af 
EXIT2: MOV (sP)+,RO 
RTS pt 
;THE ERROR CHECK ROUTINE CHECKS 
!ON WRITING OR READING. 
ERRCHK: BIT #140000, IRKSS 
NOP 
TSTSN1 
MOV #1, aRKCS 
ISR PC’ SMTME 
MOV #-1\ SERRFLG 
1S: TSTeB. 3s arkkC'S 
L + 
DECB 32s BBECNT 
TSTSNI 
IMP DBRESTRT 
TSTSNI: er! #1000, JRKDS 


RETRN2 

MOV 815, aRKCS 
MOV 8-1 dERRFLG 
PC. SMTME 
2s: TSTa 8 ©aRKcs 


SPL es 

BIT #100, @RKDS 

BEG 

DECB asCNTSIN 
RETR 


BNE Ne 
RESTRT: TSTB asECNT 
NOP 


BEG 1$ 
TYPE ess 


D CYL TABLE POINTER 


@ ieee si Is NOT THE LAST BASE ADDR 
GET NEXT WORD-DRIVE FINISHED 


no 


;RESTORE RO 
:RETURN TO MAIN LINE CODE 


IF AN ERROR OCCURRED 


;HARD ERROR OR ERROR SET? 

0 EXAMINE ERROR REG. .ECT. 
tTF NO, GO TEST SIN’ BIT 
IF YES, ISSUE CNTROL RESET + GO 


if LAG AN ERROR (PREVENT UPDATE OF ADDR) 
:;CNTROL READY BIT SET (FROM CNTROL RESET) 
WAIT. Ng chat HERE RUN 


TATIC) 
 DECREMENT ERR pres 
> HAVE ERROR aro cey = 
LIF HERE 5 ERRORS HAVE 0 
; SEEK INCOMPLETE SET? 


BRANCH H IF NO 
LIF YES, ISSUE DRIVE R G0 
?FLAG AN ERROR Cee seBtate OF ADDR) 


TIMES? 
OCCURRED 


;"R/W/S i pit SET? 
Lh HUNG HERE RUN STATIC) 


IF _NO WA 
: DECRENEN ata INCOMPLETE COUNTER 
;IF 3 °SIN’ ERRORS FALL THROUGH 


5 eRe 


ss Tire ASCIZ STRING 


38 4§ GET OVER THE ASCIZ 
igs: SASCIZ <15)<12>/3 *SIN’ ERRORS OCCURRED? 
1s = 
ete TES AS :;TYPE ASCIZ STRING 
ze &$ T OVER THE ASCIZ 
ijb78: "@SCIZ ¢15)<12)/S ERRORS OCCURRED 


a ae ee ae 





paused MACYLL 2711006) O4-OCT-76 14:01 PAGE 20 
DZRKIO.P11 22-SEP-76 10:10 COMPATIBILITY TEST 
gee este wun: E304 open < ahe TYPE ASCIZ STRING 
i 10 s% ING 
3ég ec pdo422 ze bog ::GET OVER THE ASCIZ 
355 --69§:  ASCIZ / DRIVE DECLARED DOWN!! NOT TESTED !/ 
880 006370 £8: 
$91 006370 105737 01316 TSTB  d8COMND ;TEST THE COMMAND 
962 06374 10005 BPL 38 iF WRITE, BRANCH 
$$3 006376 000004 ADD 84, SP :POINT TO SAVE RO 
804 906402 pieb05 MOV ($P)+,R0 :GET K 
Sos 506404 710 100000 Is s8IT15, (RO) SET OWN 
$9 006410 900207 RTS PC :RETURN TO MAIN CODE 
887 006412 052710 100000 38: BI #8IT1S, (RO) :SET THE DOWN SIT 
998 OO641E 012706 001100 MOV aSTACK: SP RESTORE THE STACK 
$63 906422 000137 003304 IMP ascol ’. 
1900 O0&42& 000207 RETRN2: RTS PC 
1002 :THIS ROUTINE CHECKS A SECTORS WORTH OF DATA ON A READ OPERATION 
Heed :IT ALLOWS S ERROR PRINTOUTS PER SECTOR 
1005 O08430 O10446 RDCHK: MOV RY, -(SP) ;SAVE RY 
i508 906432 MOV RS’ -(5P) : SAVE RS FOR RDLINK 
100 bO43* 105037 001320 CLR JBHORFLG ; CLEAR HE PRINT HEADER FLAG 
1009 O06442 Blers? o0009S 9001350 MOV #5, J8CHKCNT !PUT ERROR COUNT IN CHECK COUNT 
1010 OO84SO 012704 007336 MOV sROBUFF RY :GET THE TABLE TO RY 
1011 006454 013765 001 MOV JSPATTRN, RS :GET THE EXPECTED DATA TO RS 
idl2 OO&46O OeDss4 18: CMP RS, (R4)+ "ARE THEY THE SAME 
1013 O0S46e O01515 BEQ 33 ‘IF YES BRANCH 
| {014 OO€464 105737 001320 TSTB aSHDRFLG ?IS THE HEADER FLAG CLEAR 
| [OIS OO6470 OOID4E BNE 23 :IF NO BRANCH 
121 O06472 104401 oDEso0 TYPE &S$ :: TYPE ASCIZ STRING 
| O17 OO647E O00420 SR 4 >:CET OVER THE RCI : 
1018 . ane: ii: “ASCIZ <15><1@>/ERROR! BATA WRITTEN BY DRIVE ” 
j ous $ 
/ [020 O06540 152737 0900377 001320 BISB 8377, d0#HORFLG ;SET THE HEADER FLAG 
| 1021 OO6S46 113746 001317 MOVE aaeWRtNBY,-(SP) PICK UP THE DRIVE # THAT WROTE 
[O82 O0e&s2 104403 TYPOS 
| [083 d06ss4 6 BYTE 
| 4084 O0e55s “BYTE 
| 1025 OO655— 104401 O06Se4 TYPE £7$ :;TYPE ASCIZ STRING 
| 086 O065ée 00411 pe ¢ : !:GET OVER THE ASCIZ 
| {097 --67§: .ASCIZ / CANNOT BE READ.” 
«1088 = O0bEDE bes: 
1023 06606 23: 
1030 OO6EDE 104401 OOEEl4 TYPE 69S :; TYPE ASCIZ STRING 
| 103i 006612 doo4OS we, BE es Ejay GET OVER THE ASCIZ 
| Ps ee = < ”« »/ = 
| 933 oDpee2e bs: 
1024 S06626 013746 001234 MOV BeOSKADR,-(SP) ;PICK UP THE ADORESS THAT FAILED 
1025 POSE32 104403 TYPOS . 
1036 O0b634 O0& BYTE 6 
1037 O0EE35 001 "BYTE ! 
1 OOESE 104401 OO6E44 TYPE 71$ :; TYPE ASCIZ STRING 
1028 O0664e OOO4DS BR 0g !:GET OVER THE ASCIZ 
1046 -:71§: .ASCIZ / EXPCTD=/ 
1041 OOGESE >ds: 
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04-OCT-76 14:01 PAGE 21 
COMPATIBILITY TEST SEG 0043 
OV RS,-(SP) sPICK UP THE EXPECTED DATA (GOCD) 
TYPE 738 337 ASCIZ STRIN 
ae = obg +3 Tee ee +2 ae, 
rT -ASCIZ /¢ RECVD=/ 
ne HOV “2(R4),-(SP)  ;PICK UP THE RECEIVED DATA (BAD) 
T TT T 
pec GECHKCN :DECRERENT ue {Heck COUN 
3S: CMP SMANSEL RY -DONE ALL eReoKe? 
BNE 1 IF NO 
43: MOV (SP)4,R5 ; RESTORE RS 
MOV (SP)+,R4 sRES OE 
RTS pt RETURN 15 CALLER 
THIS ROUTINE BUILDS A TABLE OF PARAMETERS TO PASS TO THE SECOND SYSTEM 
[IT PACKS THE INFO FOR TWO DRIVES INTO ONE WORD 
SECONE: CLR R3 ;CLEAR THE WORD COUNTER 
NOP : ete 
MOV sMSKTBL,R2 
tf: CLR ) 
che sPASTBL,R2 
MOV 8LOGA,RO 1 THe ACTIVE TABLE ADDRESS 
18: MOY (RO)+.R1 fata THE WORD 
SwABStié@R*YL THE DRIVE 8 TO THE LOW BYTE 
BIC #177400.Ri ?CLEAR THE UNWANTED BIT 
Rob Bi :ROTRTE THE BYTE, WAS DOWN SET? 
s8I1T0,R1 HE DRIVE QS DOWN IN THE TABLE 
28: oLF, RI fe Tals. THE SE FE ee ot ve IVE 
BMI 3$ YES 
8108 #360,R1 aie HE 
MOVE 1, (Re)+ :GET THIS # TO THE PASS TABLE 
BR i$ :GET x FROM ACTIVE TABLE 
2$: MOVB J, (Re) GET THE LAST DRIVE TO THE PASS TASLE 
MOV #PASTBL, Re :RESTORE THE TABLE POINTER 
TYPE : TYPE feels STRING : 
ae bug OVER THE ASCIZ 
igs: “ASCIZ <18><12>/LoAD ANd’ oe les ADDRESS 210 ON SYSTEM #2/ 
TYPE 67S ss TYPE ASCIZ STRING 
gr S$ T OVER THE ASCIZ 
iig?s SASCIZ <15><12>/AND typt' THE BELOW WHEN ASKED FOR IT. / 
45: INC R3 s INCREMENT THE WORD COUNTER 
TYPE 9¢ i: TPE ASCIZ STRING 
Ee 9g :GET OVER THE ASCIZ 
jje%s: eASCIZ <15><12>/WORD 
"MOV R2,-(SP) :GET THE WORD COUNT ON THE STACK 
TYPOS 
BYTE §& 
BYTE 0 
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PAGE 22 
COMPATIBILITY TEST a . SEG 0044 
TYPE 718 ::TYPE ASCIZ STRING 
ge >0§ :GET OVER THE ASCIZ 
ii7is: .ASCIZ /2/ 
MOV (R2)+,-(SP)- :GET THE FIRST TO THE STACK 
TYPOS 
BYTE 6 
“BYTE 1 
git S8IT1S,-2(R2)  ;WAS THIS THE TABLE TERMINATOR 
Ne S ?BRANCH IF 
BI #8177, -2(R2) : TERMINATOR? 
Be¢ 4g :IF NO BRANCH 
S$: = -(RO) 
HALT 
RETFR2: 
T 6S$ :: TYPE ASCIZ STR 
yg SIGET oven Fue B2C9, 
ie ASCIZ <«15><12>/WORD=/ 
: T 
ape (SP)+, Re :GET THE WORD FROM SYSTEM 2 TO TABLE 
BIC #177400, Re 
MOV #LOGA, R4 :SET POINTER LOOK FOR FIRST “UP” DRIVE 
18: TST (+ :DRIVE U 
BMI IF NO BRANCH 
MOV FS gespass 
MOV (RY) 
NOP eee 
JSR PC, poe :CALL 002+ 
A Gugeeetiho OL IO coer 
IMP TFRE :GO TO END OF TEST 
ROBUFF: .BLKW 400 
MANSEL: NOP : TABLE TERMINATOR 
BADONE: ; 
TYPE 6S$ :;TYPE ASCIZ STRING 
4$ 3;GET OVER THE ASCIZ 
-65$: .ASCIZ /?/ 
bag: 
.S8TTL OSCILLATING SEEK ROUTINE 
SECT.2: 
TYPE bss i; TYPE. ASCIZ STRING 
4 “GET OVER THE ASCIZ 
-65§: .ASCIZ C16) < 12> /OSCILLATENG SEEK PACKAGE” 


big: 
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MBINDEC-11-DZRKI-D MACY11 27(1006) O4-OCT-76 14:01 PAGE 23 
DZRKID.P11 22-SEP-76 10:10 OSCILLATING SEEK ROUTINE SEG oo4S 
L1s4 
| 1158 o1041e 012700 o20470 tr sORIVO, RO Pea iy DRIVES RE 
i} j 7? 170752 18: MOV R1, IRKDA RIV N A TABLE STARTING 
| tie? Be 1 ban 170734 TSTB gek0s ile ‘belo . SITS 15-13 CONTAINS 
1158 010430 100001 BPL 
1160 010432 010120 MOV Rl. (RO)+ 
1161 DiONe4 Obe701 020000 2s: BdD #20008, R} 
Lies Bi iae Bes 10 177777 MOV #-1, (80) :SET THE TERMINATOR TO THE TABLE 
L165 O1LO446 013702 00137 INIT.2: MOV RKDA, R2 
L186 O1O4S2 012777 1 170710 MOV #1, aRKCS ; ISSUE CONTROL RESET + GO ! 
| T1e? OIDMeO OOd737 055 JSR PC SMTME | 
/ (I6B O10464 1 1707 1S: TSTB 3 8= RKTS ;D1D CONTROL READY SET? 
| 1169 O10470 100375 BPL 1$ [IF NO WAIT! (IF HUNG RUN STATIC) 
| 1170 O1G472 012700 MOV #ORIVO, RO 
1171 010476 012077 170874 3S: MOV (RO)+, aRKDA 
117e 010S02 012777 O00015 170860 MOV $15, DRKCS ;ISSUE DRIVE RESET + GO! 
1173 010510 904737 9O05S74 ISR PC SMTME - 
| 2374 010514 105777 170660 23 TSTB 430s ARKCS 
| 4175 O10S20 1 BPL 
| 4176 010522 622715 177777 CMP #-1, (RO) 
| 4177 010526 001363 BNE 
1178 910530 104401 o10S36 TYPE 65S 3; TYPE AScIzZ STRING 
| 1178 O10534 O00432 BR b45 GET OVER THE ASCIZ : 
1180 ranage: iie5: "ASCIZ <15)<12>/SET Swo'te SW? TO SELECT DRIVES FOR TEST AND CONT’ 
' JIB2 O10622 104401 010630 TYPE £7 ss TYPE QSCIZ STRING 
1183 O10626 O0042E BR &$ °GET OVER THE ASCIZ 
1168 “ ji878: "ASCIZ <15><12>/RESET Si TO SW? TO TEST ALL AVAIL DRIVES/ 
| {186 bibs Ba 022737 OOOl7E O01140 78: CMP #SWREG, SUR : SOFTWARE SWITCH REGISTER IN USE ” 
| 4187 G1071l2 001003 BNE at :BR IF NOT 
' Jlge O10714 104405 GTSWR REQUEST NEW CONTENTS FOR SWITCH REG 
1188 010716 00400 BR 95 TI 
| 1190 $0720 og: H ra FOR OPERATOR TO ENTER NEW SWR VALUE 
| 2191 Oi87ee 117704 170212 8§: MOVB aSWR,RY TO_RY 
1192 01076 901413 BEQ 4§ : NONE aa "50 TEST ALL 
_ M83 010730 01 020470 MOV #DRIVO,RO : TABLE TO’STORE DRIVE ADDRS 
| 4194 010734 O05001 CLR Ri :ADOR OF DRIVE 
/ Liss 010736 006004 6S: ROR R4 : NEXT SWITCH TO CARRY 
| JIsé Oo} 103001 BCC cg :SWITCH NOT SET 
| 1137 b1074e 010120 ee = HOV RI, (RO) sSuETCH SET, 50, NOVE ADDR TO TABLE 
1198 Be avees BNE . L DONE WHEN ZERO 
He ES ee zw, hats pe 
| Yepe ‘fi 7be OO11ES BNE RWSRDY ile YES T RETYPE 
_ 4203 010764 104401 010772 TYPE 69$ $3 TY PE notte STRING 
1204 016770 O00432 BR 8s OVER THE ASCIZ 
10° is i i838: “ASCIZ <15><12>/TOGGLE tHE “FIRST CYLINDER ADDRESS” (OUTER LIMIT)” 
1207 O11056 104401 O11064 TYPE 71$ s: TYPE ASCIZ STRING 
| 1206 O11062 ooo441 BR 0g : OVER THE ASCI 
1208 33718: .ASCIZ <15><12>/INTO THE LOW BYTE (BITO-?) OF THE SWITCH REGISTER AND THE “LAST 
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04-OCT-76 
OSCILLATING SEEK ROUTINE 
708: 
TYPE 738 : 3 TYPE ASCIZ STRING 
as 2g :GET OVER THE ASCIZ 
gizeS: .ASCIZ  <15)<12»/¢ CYLINDER’ AODRESS” (INNER LIMIT) INTO THE HIGH! 
TYPE 758 $3 TYPE ASCIZ STRING 
oe Sug OVER THE ASCIZ 
i758: ASCIZ «18><1e>/ BYTE (BITe- 15), THEN PRESS CONTINUE. / 
INCB  OSPFLG 
RWSRDY: BIT #100, JRKDS s "READ /WRITE /SEEK READY BIT SET” 
BE RWSRDY [IF NO WAIT! (IF HUNG RUN STATIC) 
TRYAGN: che aSHREG, SHR SOF THAR cur ten REGISTER IN USE ? 
GTSWR GET NEW CONTENTS 
RF CONTIN : CONTINUE 
1: HALT 
CONTIN: MOV #1, IRKCS sCONTROL RESET 
iSTe JRKCS 
MOY :GET THE ADDRESS OF THE SWITCH REG. TO RS 
1$: MOVE (RS$+_R1 :GET A BYTE TOR 
BIC #177400, R1 :CLEAR THE UNUSED BITS 
CMP #312, "IS ADDRESS LEGAL? 
BPL z :BRANCH IF YES 
TYPE bss 33 TYPE ASCIZ STRING 
BR “GET OVER THE ASC 
ies: ASCIZ Tes 1p /TNVALID ‘ADGRESS IN SWITCH REGISTER TRY AGAIN’ 
BR TRYAGN :60 BACK FOR NEW PARAMETERS 
23: OL Ri *ROTATING THIS REGISTE 
ROL R1 !MAKES THE BYTE FROM THE 
ROL RI :SWITCH REGISTER L 
ROL RI WITH THE CYLINDER BITS OF 
ROL Ri : THE RKDA REGISTER. 
BIC #160037,R1 :CLEAR THE UNUSED BITS 
BIT #1,R5 :TS THIS THE LOW BYTE? 
BNE 3 ; BRANCH IF YES 
HOV Ri, QeSEEKI 5 STOR THE J INNER LIMIT OF THE SEEK 
3S: MOV RI, J8SEEKO 3 TORE HES OUTER LIMIT OF THE SEEK 
oF 18 +B OBRcK BACK AND GET HIGH BYTE. 
SEKSET: MOV :GET THE NUMBER OF SEEK CYCLES TO R32 
MOV seer, RY :ADD THE OUTER LIMIT CYLINDER ADDRESS 
MOV DeSEEKI;RS !ADD THE INNER LIMIT CYLINDER ADDRESS 
LDSEEK: MOV #0RIVO RO ; INITIALIZE POINTER 
5s: MOV GE INNER LIMIT CYL ADRES 
BIS Prove SRKDA :SET ORIVE ADRES 
MOV #11 aRkcs :ISSUE SEEK+GO! (FOR INNER LIMIT) 
3s: 738 le 
BPL $ 


e-1, (RO) ;ALL DRIVES DONE” 


SEG 0046 
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pees 
baci 


177777 


011760 


011770 


000176 


167520 


167472 


167430 


001140 


020320 
167010 


TO4 
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OSCILLATING SEEK ROUTINE 


SE 


A Ar 


4 we 


BNE :NO 
MOV #ORIVO,RO 
g§: MOV.  (RO)+. aRKDA sADRES THE DRIVE 
7§: BIT #RWS , RKDS :SEEK DONE? 
BEQ *NO, WAIT 
CMP $-1, (RO) ALL DRIVES DONE? 
BNE 6$ sNO 
MOV #ORIVO, RO 
8S: MOV RS. ORK sSET OUTER CYL ADRES 
BIS (RO) +, JRKDA -SET DRIVE ADRES 
MOV gi geKcs SISSUE SEEK+GO! (FOR OUTER LIMIT) 
Je2 PC. SMT 
33 TSTB = BRKCS 
BPL . 
MP -1, (RO) s;ALL DONE? 
ENE gs° 7 NO 
10 Ny ry ae Q SET DRIVE AD 
1i8: Bit aru, SKS J Maratiee 
CMP #-1, (RO) ;ALL DONE? 
Fre :DONE SO SEEK CYCLES (100 SEEKS) 
BNE LDSEEK IF NO BRANCH (KEEP CYCLING) 
BR CONTIN CHECK SWR FOR CHANGE AND CONTINUE 
.SBTTL FORMATTER-SURFACE VERIFIER 
BAD.IN: 
TYPE S$ ;; TYPE ASCIZ STRING 
4g :GET OVER THE ASCIZ 
--65$: .ASCIZ /?/ 
4g: 
SECT.1: 
TYPE S$ :: TYPE ASCIZ STRING 
BR 4g + VER THE ASCIZ 
iggss “ASCIZ <15><12>/FORMATTER-SURFACE VERIFIER,SET SW REG FOR DRV 8°S. PRESS CONT. / 
‘ cH wSHREG, SHR ; SOF THARE SWITCH REGISTER IN USE ” 
GTSWR GET SWITCH REGISTER VALUE 
BR 2s : CONT 
18: HALT WAIT FOR *CONTINUE’ 
2S: MOV #1, SHFCNT :SET SHIFT COUNT 
CLR DRYCNT ;CLEAR DRIVE COUNT 
$13: IT SHF CNT, aSWR :IS THIS SW SET? 
BNE 510 : YES FORMAT THIS DRIVE 
Sil: ASL SHFCNT 
INC DRVCNT 


47 


a ee ee 


Be 
32 
Be 


Sh 


fu 
fururufurururorurure 


ORS tN e Ses 


Rane sia 


sh 


YO0r-QO0K0K0KO000000 


a 


BE 


i 
~~ 
£ 


PERTSESRENS 
B88 


errr rerun 
“) 
o 


a 


? 
z 
2 
8 


REE ee SRT O SS ah coe Soe GaN PEE ees 
¥ 


OO OOOVLVOVOVOVOVOVOOOVVOVO OOO OOVVOIOOOVOOVOOVOVGOKOKOVOOOOOVVDOOOOO0O000 eee 


™N 


PRR REA 


bs bs Bs Bs 0 be 2 he ee be he be be be bs be 0 hs se et he he ee ho Be Be he he be 8 eo he he Be ee ho he he 
= 


= ee be eB he 2 bs 2 82 8 Bo Be 0 be be be bs 2 Be Be Bo 0 Be be Be Oe Oe Bo 8 bo ho ee hh he he 


bee 
SS 
Ue 


total 
88888 


ddd 


0-+ 2 +0 + > & 2 + = 0-0 Bh 
S 
~ 


a 


in 
WF 


S 


oS 

nS 
iv) 
ai 


aecRegres 
SRR RETR 


004137 
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10:10 FORMATTER-SURFACE VERIFIER 





JO4 


#10, DRVONT sALL DONE? 
5 
BATCNT. RO 
, SCRLF 
EMI ;TYPE 'DRIVE’ 
RO, -(SP) -TYPE DRIVE # 
RO 
RO 
R 
R 
RO 
RO 
RO, a8DSKTMP 
#0; ERRWF 
#0, ERRRF ;CLEAR OUT ERROR COUNTS. 
#0; ERRRFC 
#0; ERRWCH 
ERRW 
24 RHC :$61 WORD CO COUNT FO FOR READ FORMAT. 
#0 xTR’ ?CLEAR EXTRA SUN OR 12 SECTOR PACK. 
:S I UP LOOP RAUNT FOR THE “LEANER. 


wresdee DRKDA «SET UP FOR A SEEK TO 202. 
SEDSKTHP, JRKDA 
RK :IS THE uSQNTROLER READY? 


ia =NO SO WA 
#11, 9RKCS :DO THE SEEK. 
#8IT&, IRKDS :IS THE seek DONE? 
23 :NO SO WA 
SRKCS 1S SON TROLER READY? 
#15, ORKCS :DO A DRIVE RESET. 
sere, JRKDS ; 18 DRIVE RESET DONE. 
a ; COUNT THE CLEANER LOOP. 
#0,DA SET ORT OUT AT CYL. 0. 
8177777, a8A :PUT ALL ONE'S IN’ BUFFER. 
R1,10 :G0 DO THE DISK THING. 
#0, 38 :PUT ALL ZERO’S IN BUFFER. 
Ri 60 DO IT AGIAN. 
aldeese, aBA :PUT A ALT. PATTERN IN BUFFER. 
Ri :ONCE MORE. 
pty Ne ; CONPLENENT THE LAST PATTERN. 
R1,10 AGAIN. 
#40. DA NERENENT TO THE NEXT 
#14540, DA :ARE WE DONE WITH THIS: SNE? 
NEXT :NO SO DO THE NEXT C 

S$ 5s TYPE. ascl STRIN 

4g ‘GET HE Ree fe 
CCR <LF>/PACK GODB/ 


$11 






a 


wae 11-D2RKI- 

Pil Seer 
i378 012506 000137 
1379 


Sd 


ST b base 


1 

1 

eg 

He Be 

He tee 
‘oa We. oes 
mae foe 
1392 O1eS64 053777 
1333 pisos 777 
130% O01 105777 
1395 012604 100375 
1396 012606 005777 
1337 Oleble 100541 
1398 Ole614 012737 
1399 

1400 

SE nae. gure 
Pe wee 
1404 Q1le636 053777 
1405 picet 013 
1406 OlebSe Q1 
1407 012660 posers 
1408 Ole666 2777 
1409 012674 053777 
14i0 1 052777 
1411 012710 105777 
141e Q1e714 100375 
1413 Ole716 777 
1414 012724 001134 
1415 Ole7e6 012737 
141] 

14] 

1418 

1419 012734 013777 
1420 QOle742 013777 
l4¥e1 012750 053777 
l4ee Ole756 013777 
1423 012764 012777 
1424 Ole77e 052777 
14 pt 3777 
14 1 777 
1427 013014 777 
1428 

1429 

1430 

1431 013022 013703 
l4¥3e 013026 

1433 013030 063703 


ie 27( 1006) 


001449 


O014l1e 
001410 


001352 
001406 
000000 
pao 


000001 


001416 
001414 


166544 
001424 


166430 


FoRMATTER SURFACE VERS 


GD1: JMP 


aaSTART 


;DISK 1/0 SUBROUTINE. 


: CLEAR 
Se ae arKis-s -SET F ORMATSINKIET INC. BITS. 


KCS : CLEAR L REG. 
tetTl lsBIT8, arKcS ;SET INHIBIT RRCR’ BSP ON SOFT ERROR BITS. 


KO4 
fF iER 


;RESTART 


Et Up a THe bisk KbbRESS 
a UP THE HE BUSS RODRESS. 


THE CONTROL REG. FOR SET UP. 


a 


;SET UP WRIT 

:SET UP 120R16 SECTOR PACK. 
:G0 DO THE WRITE FORMAT. 
:15 ORMAT DONE? 
:NO $9 WAIT. 

:WAS THERE A ERROR” 
;YES GO SERVIC 


m 


;CLEAR OUT THE ERROR COUNTER. 


SET UP 12 OR 16 SECTOR PACK. 
READ FORMAT. 


-3 HE AD FORMAT DONE? 


iNQ SO WAIT. 

WAS TRERE A ERROR? 

;YES GO SERVICE IT. 

;CLEAR ant THE ERROR COUNT. 


SET UP WORD COUNT REG. 


THE CONT 
;SET 12 OR 16 SECT OR 


EXTR, JRKC 
#BIT1+B1T2,aRKCS’ ;SET UP WRITE 


FUN 
:60 DO THE WRITE BRECK 


;PUT NUMBER OF _WORDS TO 
;CHECK IN REG 3 


'SET UP FOR A WRITE/FORMAT. 
tO: MOV uC, K 
ors OTe KTMP, JRKDA 
by a Sei 
ae 
BIS zl RR KCS 
BIS SOTTO ORKCS 
18: TSTB = ARKCS 
BP 1$ 
TS SRKCS 
BMI WFERR 
MOV #0, ERRWF 
:SET UP FOR A READ/FORMAT 
: MOV RWC, IRKWC 
MOV DA, aRKDA 
BIS aKOSKTMP, IRKDA 
MOV REA A, gRKBA 
ars te an 6 CoRKCS 
BIS 12 aRKCS 
eae ortarets 
, ip ied 
BPL z 
BIT #BIT14, IRKCS 
BNE RFERR 
MOV #0, ERRRF 
:SET UP FOR A WRITE CHECK. 
; MOV WC, IRKWC 
MOV DA; IRKDA 
bIS JSOSKTMP, IRKDA 
MOV sh SRKBR’ 
MOV 
BIS 
BI 
BI 
BIS #BITO, IRKCS 
:CHECK HEADERS READ BY THE READ/FORMAT. 
Moy RUC, R3 
AnD RBA,R3 


‘SET REG 3 TO THE LAST WORD TO BE CHECKED. 


SEG 0049 
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MAINDEC-11-D2RKI-D MACYL1 27(1006) 04-OCT-76 14:01 PAGE 28 
DZRKID.P11 22-SEP-76 10:10 FORMATTER-SURFACE VERIFIER SEG 00S0 
1434 013034 013702 g14i4 ~al Moy REA, RE :SET RE 270 ger feria OF BUFF. 
ttaz RiSed9 Be TESS : ORE: GBB ad Hie at Us Leevice 11. 
tae pi 028 ? SNE 3 fe ENC no. 0 CHECK. THE NEXT ONE. 
1933 Bi 029 B03323 oo00000 901426 MOV 80, ERRRFC :CLEAR OUT THE ERROR COUNT. 
ie LETS CHECK ON THE WRITE CHECK WE STARTED. 
1443 013060 105777 166304 is: TSTB = ARKCS 
1444 13064 THe CONTROLER 15 IS STILL BUSY. 
i445 013066 166276 S KCS A ERR 
1a¥é 013072 100907 + gti WCERRR : YES f° eR ICE ou 
4 a8 ’ 
1848 ete piec3s pepeee atthe MOV $5 ERRHCS sGLERR QUNTERS. 
1449 013110 o00020) ATS Ri ‘RETURN TO THE MAIN LINE. 
1st 013112 000137 013576 WCERRR: IMP WCERR 
18 ‘ERRORS FOR WRITE FORMAT. 
1454 012116 005237 901422 WFERR: INC ERRWE ADD ONE TO THE ERROR COUN 
1455 013122 022737 O00004 ool4e2 CMP #4, ERRWE HAS IT HABPENS ST TIMES ON THIS CYL. 
| 4456 013130 OO10is BNE RETRY :NO. 
| 44657 013132 SYSER: 
| 4458 013132 104401 013140 TYPE S$ s;TYPE ASCIZ STRING 
/ 4145S 013136 OGoo410 BR b4§ GET OVER iHE ASCIZ 
«1460 .:65$: -ASCIZ <15)<12>/SySTEM ERROR 
1461 012160 b4s: 
| 462 913160 ooco00 HAL T : sLET THE TECH. BREATH. 
, 463 0123162 900137 0901440 JMP START ?RESTART T 
| 3464 O13166 012777 000000 166174 RETRY: MOV #0, ARKCS s CLEAR OUT THE CONTROL REG. 
| 1465 013174 012777 OOO0IS i66lE6 MOV #15. aRKCS 00 A DRIVE RESET. 
1466 012202 032777 OO0100 166154 1S: BIT #81t6, IRKDS i1S IT DONE. 
| 146? 913210 001774 BEQ 1$ NO SO WAIT. 
| 1368 Oizei2 000137 o1esie IMP 18 STRY AGAIN. 
| 1470 ‘ERRORS FOR READ/FORMAT. 
/ 44 1 4 RFERR: INC ERRRF +f 0 RROR C 
138 oi seee 2 % ap Ads4 001424 . ins #4, ERRRF ree HREPEND 4 Pines ON THIS CYL? 
, 1474 013230 o01356 BNE RETRY 
| 147s 012232 000737 BR SYSER YES O80 i? ate So. 
i307 READ/FORMAT ERRORS FOUND BY SOFTWARE CHECKS. 
4478 «013224 005237 oD14e6 RFCERR: INC ERRRFC ;ADD ONE TO ERROR COUNT. 
1480 013240 105777 166124 1S: TSTB  aRKCS WAIT FOR THE WRITE CHECK. 
| 4481 013544 100375 BPL ‘3 
i 1 i a Cae Cn ced 
| Hes Bt Boaz BR Faile INO § ape ae 
‘4485 013260 042777 000037 166110 FAILED: BIC #37, JRKDA : PUT. WiC SECTORS SOEAOER 
1486 013266 O42702 177740 BIC #177740. Re 
1487 013272 060277 166100 ADD Re, JRKDA ;FAILED IN RKDA FOR THE MESSAGE. 
| [46s 613376 FAIL: 
1489 013276 104401 013204 TYPE 658 ;;TYPE ASCIZ STRING 





MO4 


1IS4S Ol3ble 022737 000004 001432 CMP #4, ERRWCS HAS THERE BEEN 4 OF THEM? 


MAINDEC-11-DZ2RKI-D MACYL1 27(1008) 04-OCT-76 14:01 PAGE 29 
DZRKID.P11 22-SEP-76 10:10 FORMATTER-SURFACE VERIFIER 
14980 013302 000417 ak b4S T OVER THE ASCIZ 
ig iiB58: SASCIZ <15>«<12> PACK ratice AT CIN OCTAL) 7 
14 ails 017701 166030 MOV JRKDA,R1 :QENERAT THE CYL, SECTOR, SURFACE 
1433 013346 910102 Hoy RL Re MESSAGE FROM RKDA 
14 513384 besos Arner cee p #260, Re 
luge OiSse49 eNSa? O1aee4 Wye Reece 
1499 oi 3370 aoase5 3355¢ BIC pao Te, Re 
1500 013374 O62702 000260 260, R2 
ie fine tose Ge ee Be, 
1208 Bt sa06 e702 1 BIC #177776,Re 
1504 013414 702 O00260 ADD #260, 
Ee ine: hee ther ee eee 
iE oi 33 pieree BIC #177770, 
1 13434 7 026 ADD #260, Re 
1508 O12440 110237 013526 MOVB Re, CYL+2 
1519 O13444 337 913564 35R R3.5 
ay 613450 7 : BIC #177770,Re 
1512 013454 7 026 ADD #260 
1513 O13460 110237 013525 MOVE Re, CYL+1 
1514 913464 004 013564 JSR R3. SHF3 
1515 13470 0427 74 BIC #177774, Re 
1516 13474 0627 00260 ADD #260 
| Js] 13500 110237 013524 MOVE Re, CY 
1518 913504 104401 013514 TYPE ~—._ os: 18 ; TYPE OUT THE GENERATED MESSAGE 
1513 613510 000137 0135 IMP ST :BYPASS THE INLINE MESSAGE 
1 13514 605015 O54503 027114 1S: SASCII. <15><12>/CYL 
1521 013522 o20040 
1522 0132524 030060 o20060 CYL: -ASCII 000 / 
| 4623 013530 o42523 627103 oeD040 "ASCII /SEC. 7 
| 3524 013536 030060 4 SEC: "aScII 00 7 
| 15285 013541 le3 051125 027106 "ASCII /SURF. 7 
1526 0135468 o20040 
1527 013550 20069 oosois 000 SUR: SASCIZ 70 7<15>«12> 
1528 013556 "EVEN 
1523 013556 000000 STOP: HALT ;LET OPER DO HIS THING. 
| 1530 013560 000137 oo1440 IMP START ZRESTART THE TEST. 
| tee :SHIFT SUBROUTINES. 
| 1534 013564 OO6201 SHF3: ASR R1 SHERE FOR A SHIFT OF 3. 
| 1835 013566 9006201 SHFe: ASR R1 ; HERE FOR 8 SHIFT OF 2. 
1536 013570 oO SHFI: ASR R1 HERE F HIFT OF I. 
| 4537 013672 010102 MOV R1,Re :PUT RESULTES IN THE WORKING REG. 
1538 013574 RTS R3 
; 
1540 “ERRORS FOR WRITE CHECK. 
| Y&42 013576 032777 OYOD00 165564 fICERR: SIT 81714, JRKCS §;WAS IT A HARD ERROR. 
| 4543 013604 oO010 BNE WCHERR :YES GO PROSSES IT. 
| 1544 013606 095237 0014322 INC ERRWCS !ADD 1 TO THE SOFT ERROR COUNT. 
| 







NO4 


MAINOEC-11-DZRKI-D MACY11 27(1006) O4-OCT-76 14:01 PAGE 30 


D2RKID.P11 22-SEP-76 10:10 ' FORMATTER-SURFACE VERIFIER SEQ o0se2 
1546 013620 d01b2¢ fe BE0 FAIL :VES PUT OUT FAILED MESSAGE. 
Hie Lee BOY TEI ny weve: TM Emu, Bb TE Te once coun 

# 
1550 b13e40 the BEQ SYSERR YES PUT OUT SYSTEM ERROR MESSAGE. 
1551 01364 137 013166 IMP RETRY ?NO SO TRY AGAIN. 
155¢ 013646 013132 SYSERR: JMP SYSER 
1554 BUFFERS. 
1556 013652 900000 BUFF: .WORD 0 
1557 013654 000030 RBUFF: .BLKW 30 
1558 
1553 
1560 
1561 
153 .SBTTL KOS CONTROL PANEL TEST 
1565 013734 BAD. ON: 
1566 0137324 104401 013742 TYPE S$ :;TYPE ASCIZ STRING 
1567 013740 Ooo40] BR bug :GET OVER THE ASCIZ 
| "Egg --65§: .ASCIZ /?/ 
1563 013744 64s: 
1570 013744 SECT.O: 
| 1571 013744 104401 013752 TYPE S$ ;s TYPE ASCIZ STRING 
| 1572 013750 Oo0424 BR 645 “GET OVER THE ASCIZ 
| 1873 53658: .ASCIZ (15><12>/RKOS CONTROL PANEL TEST, WHICH DRIVE?” 
| 4574 o14O22 £4$: 
| 1575 O14022 104407 RDCHR 
1576 014024 011690 MOV (SP),RO 
1577 014 104403 TYPOS 
| 1578 014030 001 1 
| 1678 014031 000 BYTE 
| 1580 014032 162700 ooposo Sup #60,R0 
| 1581 O14036 100736 BMI BAD. ON 
| 1582 014040 Oe2700 ooo010 CMP #10,RO0 
1583 014044 003733 BLE 
| 1584 O14046 119037 001314 MOVE RO, d#DRIVE 
| 1885 O140s2 00030 SWAB 
1586 014054 006100 ROL 9 
| 1587 014056 00610 ROL RO 
| 18 14060 006100 ROL RO 
| 4589 O14062 O06) ROL RO 
| 1890 O14064 006100 ROL RO 
| 1891 O14066 01 001352 MOV RO, J#OSKTMP 
, 1692 o14072 104401 014100 TYPE 675 53 TYPE ASCIZ STRING 
| 1593 014076 Oo0414 BR bes “GET OVER THE ASCIZ 
| 1534 aa jie? SASCIZ <15><12>/MOUNT pARK ON DRIVES7 
| s 
{ap Stat 013746 0012314 MOV DRIVE, -(SP) ;;SAVE DRIVE FOR TYPEOUT 
1587 614134 104403 TYPOS ;;G0 TYPE--OCTAL ASCII 
153 014136 001 BYTE i ::TYPE 1 DIGIT(S) 
1693 014137 000 "BYTE ;;SUPPRESS LEADING ZEROS 
1600 O14140 104401 O14146 TYPE 69S : TYPE ASCIZ STRING 
1601 014148 00425 oR 8s GET OVER THE ASCIZ 


| MAINOEC-11-D2RKI-D 
| OORKID.F 1) &e-SEP-76 


| we 
| 2603 014220 
| 1604 914820 308401 014226 
«Teds is22s  B00423 
Leds 
| -TEEF - osers 
| 1608 Si4e74 so4eo. 014302 
| i553 614300 d00425 
| 3618 
| {617 o14354 
1si2 614364 9090000 
i£13 91435 OOS737 016124 
1615 614 1O4401 014370 
161s 624366 600435 
| 1616 
) Lgl? .O14850 
1618 O14450 J 
oe 8 
: ~ * s we 
«Teel ai t3z8 see 
lbe2 
| i6e3 pei ; 
1634 014540 00000 
fe ies Gee BE 
Be d 
ee 6145545 612777 i395 
1628 014562 0047 oy 
1g=9 si s5ée 105777 164576 
1830 72 
te] ENESS ASF oresus 
lé32 O14600 | 
1633 14600 104401 O14606 
1634 014604 60043] 
1635 
1636 14670 
1637 014670 104401 O14876 
1638 014674 aes 
ie3s 
1656 014726 
—s«LBSL«D14726 «osso1 «014734 
i635 61473e 600420 
«Tes 14774 
| YeHs 014774 op0000 
1646 014776 104401 o1s004 
ibs? Oisode so0426 
164$ O1SOED 
1é50 O15060 104401 oO1S06E 
185i 15064 do0o4e6 
ieee 
igS> O1S1e6 
HE EEE PO on 
~ ae 
1656 615136 fi ides 
16&7 O1E194. 004737 005575 


—-— 
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ieee 


164240 
l64224 


04-OCT-76 
RKOS CONTROL PA 
--69$: .ASCIZ 
£88: ; 
TYPE 
re Kil 
gigs: -ASCIZ 
TYPE 
738: eaSCrZ 
iim 2 
HALT 
JSR 
TYPE 
gs 
g3758: .ASCIZ 
S$: 
HALT 
TYPE 
--77§: oasCIZ 
| atte 
HALT 
ISR 
MOV 
MOV 
ISR 
18: Bre 
JSR 
PRTTWO: 
TYPE 
;;65$: oRScIz 
To es 
TYPE 
-:67§: oRSCIzZ 
éés: 
TYPE 
-69$: easc1Z 
1 Spegege 
HALT 
TYPE 
-:71$: oascIzZ 
7s: 
TPE 
-:73$: .ASCIZ 
25: 
HALT 
MOV 
MOV 
ISR 


i9:0 


Ji PAGE 31 
NEL TEST 


_ S86 00S3 


(15> «12> PLACE DRIVE IN RUN ;SHOULD SEE THE RUN, / 
“yf eT een he ath 

98, 12> ower, AND ON ER INOER LAMPS LIGHT. / 
738 ss TYPE ASCIZ STRING 


P28 -:GET OVER THE ASCIZ - 
(15) «12> /MAKE DRIVE WRITE ENABLE PRESS CONTINUE’ 


PC WRROCK :G0 WRITE O°S, RD O'S, CHECK 
4758 i; TYPE ASCIZ STRING 
$ug °:GET OVER asciz 
«15> «12> <18)<12> WRITE PROTECT THE ORIVE THEN PRESS CONTINUE 
PC WRPRO 560 TRY OVERWRITE 
79S 100 oe ASCIZ STRI 
?6$ t:GET OVER THE ASCIZ ; 
(15> <12><1S> «12> 7ALEAR WRITE PROTECT THEN PRESS CONTINUEY 
PC WRROCK :G0 WRITE 0°S, RD O'S, CHECK 
aedSKTMP. DRKDA ;SET UP ORTVES 
ames gis a rT 
cee ; #¢ Wet Poe ADY SET 
i tb Mee Bi 
CWRPRO : ¥ ITE OF IERO’S 
abs be WER THE cect 
TS, cre) crs) «120 SARUTION! TRY TO SBEN THE DOOR, 00 NOT FORCE: / 
67S :; TYPE ASCIZ STRING 
bes PGET OVER THE ASCIZ 
<15><12> DOOR § NOT OPEN! / 
act 3; TYPE ASCIZ STRING 
T OVER THE ASCIZ 


b8¢ GET O\ 
<15)<12> PRESS CONTINUE WHEN FINISHED’ 


71§ :; TYPE ASCIZ STRING 
08 ::GET OVER THE ASCIZ 
<15><12><15><12>/PUT DRIVE IN LOAD, WAIT FOR LOAD LIGHT’ 


4738 ;; TYPE ASCIZ STRING 
$2§ CET OVER THE ASCIZ 
<JE><12> PRESS COATINUE WHEN FINISHED/ 


QeDSKTMP,ARKDA ;SET UP DISK ADDRESS 
#15. aRKCS ;ISSUE_A batve RESET 
PC, SMTME KILL TIME FOR RKL1-C 
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a tar at 
soreaneoververtere 
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10:10 RKOS CONTROL PANEL TES Seq o0s+ 
164214 18: TSTB = ARKCS : SONTROL READY SET? 
BY idins.an ake 
100000 164202 t ITS, ORKER 
ia ne ea 
o1si74 TAPE $s ine feeld STEEN, 
izes: -ASCIZ ie cag) onesprTie’ SF RKER DID het SE7/ 
140000 164126 28: BIT #140000, aRKCS —; DID HARD ERROR ON ERROR SET 
o1s2s2 ee. 7$ Tyee bg 378 Fe teING 
es 3 T OVER xE pec g2 
- ASCIZ «i)< 12) /ERROR rik NOT 
é 
90000: 164064 3§ MOV 81, aRKCS s ISSUE A CONTROL RESET 
574 ISR PC’ SMTME :WAIST TIME 
164054 a 7578 © aRKCS i CONTROL READY SET 
4 TF NO + BRANCH 
100000 «184042 ert SEITIS, ORKER :* DRE?’ 
o1s234 YPE ot} one, ASC IZ STRING 
gs : VER THE ASCI2Z 
i738: "ASCIZ (15) <12>/CONTROL RESET DID NOT CLEAR "DRE 
140000 163762 SS: ert #140000, aRKCS ar BITS CLEAR 
O:s4ié TYPE “sis secle STRING 
7 Og OVER TH ASCIZ | a 
igs: SASCIZ <1§><12>/CONTROL i DID CLEAR ERROR’, RKCS/ 
he : ; 
015500 TYPE ‘ss gs TYPE ASCIZ STRING 
SR £43 t:GET OVER THE ASCIZ 
iigSs: PASCIZ <1£><12><15)<12 PEN THE Dook, PUT DRIVE IN RUN/ 
o1ssse : TYPE 67S s TYPE ASCIZ STRING , 
8 6S ;3GET OVER THE ASCIZ 
jie? “ASCIZ <15><12>/CAUTION! IF RUN LIGHT ON ERROR! DEPRESS 
015632 i ere 65g TYPE ASCIZ STRING 
ge ae: T OVER THE ASCIZ 
iie?s: SASCIZ <15><12>/LOAD IMMEDIATELY, CONTINUE WHEN FINISHED 
XX: HALT 
O1S716 TYPE a3 s;TYPE ASCIZ STRING 
BR b4§ OVER THE ASCIZ 
jee: "ASCIZ ¢15)<12><15)<12> REMOVE THE PACK, CLOSE THE DOOR 
015776 y TYPE £7 :s TYPE ASCIzZ § TRING 
pe bes -:CET OVER THE ASCIZ 
jje78: -ASCIZ Ci) c12> PUT DRIVE IN RUN, DRIVE SHOULD NOT? 
16044 “8 TYPE «C698 s: TYPE ASCIZ STRING 


BR 23 GET OVER THE ASCI 
jb98: "ASCIZ <15><12>/RUN...INFERCLOCKS HAVE BEEN CHECKED/ 
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SSRKIE.PLi  SE-SEP-76 10:10 RKOS CONTROL PANEL TEST fas . 
=~ «+7 2 . G 
1714 016112 104401 016120 PE 78 tee ER Se necie 
| ftp Sele Goan pazis: -A8ct2 G8) «12> /DONEL 
i f 
171? 916130 $: 
| tie BibigO DOOle, ete uesock: Cen SeBATTRN SNAKE @ PATTERN OF ZERO'S 
| 1988 BIEING Graze? D013 163230 NOV GEDSKTHE, DRKDA $ SETUP DF 
| TED Bee 01855 ober Teseis MOY BL BRKCS sESSUE A CONTROL 
HERES ee es, corm, per set 
i af : . 3 : 
| i7eS Clsie4 1 BPL S TMP. ORKDA :SET UP DRIVE ADDRESS 
HER Ge EE hg 8 Aimer Bese 
| 123s piste eee obi 3es ie5182 oh ee ee 
«78S «Oleele 004737 0055 7 SRKES SCONTROL READY SET 
| 4730 Oleee2 10577, (lesiNe 1S: ae ;IF_NO, BRANCH 
173i Obese I ¥ - QEDSKTNP,DRKDA ;SET_UP RK REGISTERS 
| TS RER Blee GRRE ERIS Hoy BRDRUFF Deca :10 RERO ONE SECTOR 
«BB OBHESEE 992585 PRESS 2s: TST8 aekts CE NNOT BRANCH 
| fee piberD tS FOV SROBUFF,R4 © s“$GET BUFFER YO RY 
| 1739 Ol6e7e e703 027236 CLR eS ;SET UP TO COMPARE 
a He Bee = Boe le 
i742 - O16 1514 Le . TYPE ASCIZ STRING 
1743. 1E304 104401 016312 re ae Se ER fue asciz 
trae t0st0 ~ jjgSS: -ASCIZ <1) «12> /WRITE FALLED/ 
| T74e 1e33e vs WRROCK ;G0 BACK TRY AGAIN 
1747 016332 900790 BR CKS 
1742 D163 O22704 010336 4S: CMP ABANSEL, RS OE oS Beane 
fe RS ue ne fire 
1751 D1244 032777 OOOD4O 163012 WRPRO: BIT SITS, ORKDS BIT, 8 ON 
17Se O0163Se 001021 TYPE 6s$ 3; TYPE ASCIZ STRING 
1752 D1b254 10440] 016362 oe ug SIGET OVER THE aScIZ 
i See ee jggSS: -ASCIZ «18> 12> /uPseB1T8! OF RKDS NOT SET? 
1756 QIb4iE ee " 77777 B8PATTRN ;GO LOAD ALL 
ies bieass #13535 bi 962 eae _ MOV Seer THB SRKDA sRK REGISTERS 
i769 Qlevse Olerry poise ies73y | eT Oa 10 MS curry uRTve LOCK) 
3777 001344 162724 MOV  @8SECCNT,aRKWC ALL ONES (WITH 
Fe Sieve ee 901354 162714 MOV ganki TC , ORKCS 3 OVER 1 Ee Lice 
1762 Biewss oa757 Gos we. re ee SCONTROL READY SET? 
He ie ee pesca 
i765 levee 032777 oe0000 162672 BIT SIT3, OER LO ET ety 
1766 SIEN74 001032 FYPE SES ;; TYPE ASCIZ STRING 
1767 S147 10440] o16s04 iy Ps :iGET OVER THE ASCIZ coi 
1798 Oiesce O0ote? ;;678: .ASCIZ <15>«12>/EXPECTED'WLOSBITI2 OF RKER BUT DID NOT SET. 
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020000 iseSSé 
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O4-O0CT-76 14:01 PAGE 34 
RKOS CONTROL PANEL TEST 


= 8 a iat 
4$; Ts K 
ei HS 81113, , ORKER TO "att geek GEAR 
TYPE g yet vbsetg 3? 


oF 
pi9S: .ASCIZ 15> «12>/CONTROL ‘Reser’ OID fg Bae "WLO’ OF RKERY/ 


RKO: OY BERTIE TM GLI 
is pe SEE BE BE coor mace 


ISR 
3s 7578 
BPL 
MOV #5. R3 
HOV i, RY ;CHECK TO INSURE NO WRITE 
18: che FS, (R4)4 700k Rete LOCK 
¢ Ri C THE ERROR COUNT 
; I iF ZERD_BRaNcH 
an ene 
igs: -ASCIZ Se siete WITH Tee 65st Seotect, 
Hee aoe TYPE ASCIZ, STEI 
SR aes + OVER ape Bee 
i878: SASCIZ <15>< 12> “BUFFER iipes, ; 
MOV R4,-(SP) 
TYPOS 
.BYTE 6 
“BYTE 1 
TYPE £9$ ;: TYPE ASCIZ STR BING 
i] 68s ::GET OVER THE ASCIZ 
-69$: .ASCIZ / EXPCTD=/ 
bbs: 
MOV ._ RS {-(SP) 
TYPON | 
TYPE 71$ :; TYPE ASCIZ STRING 
BF P0§ !:GET OVER THE ASCIZ 
-71$: .ASCIZ / RECVD=/ 
dhs: 
MOV (R4)+,-(SP) 
TYPON 
2s: CMP SMANSEL , RY sFINISHED ALL CHECKS 
BNE $ :IF NO, BRANCH 
48: RTS C RETURN 
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~SEP-76 10:10 RKOS CONTROL PANEL TEST SEG 00S? 
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MAINDEC-11-DZRKI-D MACYLI 2711006) O4-OCT-76 14:01 PAGE 36 
DZRKID.P11  22-SEP-7E 10:10 RKOS CONTROL PANEL TEST SEQ cose 
| 1827 : THE FOLLOWING REVISION WAS MADE BY JIM KAPADIA 
| 1823 .SBTTL CONTROL PANEL TEST # 2 
THIS I$ THE ENTRY POINT INTO CONTROL PANE ALL 
teed TH obivec rhe HAT ARE BN cENT ae IN "RDY’ Sone TT ION ARE 
| $33 REPORTED PON TINE) 
| 1835 o17154 4 SECT.4: NOP 
tESS GIST? POO e SO coos: 162204 MOVs #1, BRKCS 
| 1837 617164 106777 162200 38: TSTB = RKCS 
| 1838 017170 100375 BPL 35. 
1833 124: ie? 020470 MOV IvO,RO 
1640 9171 001 CLR Ri 
| gsi 017200 0905002 - éLR R2 
| 1843 o17202 p21 18: MOV R2, (RO) :SET UP ADDRESS TABLE 
1844 017804 910577 162166 MOV RK [ADDRESS THE DRIV: 
| 1845 17210 106777 162150 TSTB aRKDS :1S IT PRESENT? 
ie36 017214 100021 BPL 23 :NO 
_ 848 o17216 104401 020324 TYPE EM ;TYPE "DRIVE" 
1848 017222 O10146 MOV R1,-(SP) :TYPE OUT DRIVE 8 
| 3850 017204 104402 TYPOC 
1851 O17226 10440! 020335 TYPE EM2 sTYPE °ON LI 
| 1852 0172832 652716 00 BIS REITG+BIT7, (RO) :SET BITS INDICATING THIS 
1553 :DRIVE PRESENT 
1855 017236 012777 900015 162124 MOV #15, RKCS s ISSUE A DRIVE RESET 
i856 017244 004737 00557 JSR PC, SMTME ‘ALLOW SOME TIME 
| 1857 017250 000100 162106 4S: BIT RWS, IRKDS WAIT FOR RWS ROY 
| 1g5s 017256 001774 8E0 4§ 
| 1866 017260 005720 23: TST (RO)+ 
| [861 017262 905201 INC R1 
ise 017264 O6e702 o20000 ADS #20000, R2 :NXT DRIVE 
| ieb3 017270 901344 BNE 1g "ALL DONE? 
1665 017272 104401 OO1161 TYPE . SCRLF 
| 1867 :THIS CODE CHECKS THE C N cd TAGE, EVERY 
| +ete ioetve. fe OF "ber ; is sty BAL ve 18's $8 1D ‘I, Be Oh oFh ERMISE IT 
| 1870 :1T Is SES RTED " THERE ts "0 MR ANGE NTN ig as) Tine, TH 
1872 017 012700 920470 BEGCT: MOV #ORIVO, RO s INITIALIZE POINTERS 
te 17 SAEs CLR Ri 
1875 017304 011077 162066 BEGCT1: MOV (RO), IRKDA ;ADORESS A DRIVE 
1876 017210 042777 017777 162060 BIC 817777, RKDA § ;MASK OUT NON OR# BITS 
1877 017316 105777 l6204e TSTB = ARKDS IS THIS DRIVE ON LINE? 
i67¢ 017322 100044 BPL 1$ M0 
1880 017324 105710 ~~ TSTB = (ROD ;WAS IT *ON LINE’ LAST TINE? 
«1881 017326 190454 BMI NXT I :YES, NO MESSAGE TO REPORT 
1882 017230 052710 oooe0o BIS #BIT7, (RO) :1T CHANGED FROM OFF LINE TO ON 
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| OZRKID.P11 22-SEP-76 
| 1883 017334 104401 
| 1884 917340 010146 
ese isseg | ioao 
| ies Bice sere) 
1888 017356 001417 
1888 017360 104401 
1890 017364 600414 
189i 
1892 O17416 
1893 617416 012777 
189 017424 105777 
1895 017430 100375 
1g3 017432 000412 
1898 017434 105710 
1898 017436 100010 
7908 917440 104401 
1901 O17444 O10146 
1902 O1744e 104402 
1803 017450 10440) 
1904 017454 O42710 
| 1905 
| 1906 
4 
«Tee 
1910 
| 93 
iste 017460 105777 
| 1g13 c17Me4 1900033 
o 
igi O17466 032777 
1917 017474 OO1014 
[Sie 
191§ 017476 710 
ge O17s02 o014=4 
i 
1922 017504 104401 
| 1923 Q17510 O1D14é 
' 1984 617512 ids4o2 
ges 917514 042710 
He HAS Bs 
1929 017526 032710 
| 1936 017832 O01010 
| 1931 
1932 
1933 917534 01 
1934 017540 O1o0146 
He ies [eae 
1337 $i bedd oat 


MACY11 27(1006) 
10:10 


020324 


a600%0 


017366 


000017 
161740 
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CONTROL PANEL TEST # 2 - $€9 0059 
TYPE EM] :LINE, REPORT MESSAGE 
MOV R1,-(SP) 
TYPOC 
TYPE EM2 : TYPE ‘ON LINE’ 
SIT BPS , IRKDS :WRITE ENABLED? 
Q 2$ YES, OK 
TYPE 6SS 3 TYPE ASCIZ STRING 
4§ OVER THE ASCIZ 
igg88: AsCIZ C15) «12> /EROR, NOt" WRT ENABLED 
2s: MOV #17, dRKCS ;WRITE PROT THE DISK 
38: TSTB. 3s aRKCS 
BPL 3§ 
st NXT1 
18: TSTB _ (RO) :WAS THIS DRIVE OFF LINE LAST 
TYBE wy sire, Oa coat THE CHANGE 
MOV RI,-(SP) 4 HO DRI ES 
TYPES EM3 : TYPE ' OFF 
BIC $8177, (RO) :CLEAR BIT en INDICATE THIS 
‘DRIVE ‘OFF LINE 
:THIS CODE CHECKS ‘WPS’ BIT FOR EVERY DRIVE THAT IS IN "DRY’ 
TION (ON }. IT REPORTS ANY C IN CONDITION OF 
3 FON TON Ste Lite) THERE WAS NO CHANGE FROM Ist IME NOTHING 
:IS REPORTED. AT THE TIME OF ENTRY RO POINTS TO DRIVE FLAG. 
NXT1: TSTB  a@RKDS ;IS THIS DRIVE PRESENT? 
' ?RKDA CONTAINS THE DRV # 
BPL NXT2 NO, SKIP CHECKINS 
BIT #WPS, IRKDS :WPS BIT SET? 
BNE 1$ : YE 
:WPS BIT CLEAR 
BIT #BIT2, (RO) WAS IT CLR LAST TIME ALSO? 
BEG NxT2 ?YES, NOTHING TO REPORT 
WPS CHANGED FROM *SET’ 
TYPE EMI :TO *CLR’, REPORT I 
MOV RI,-(SP) :TYPE DRIVE # 
BIC #8172, (RO) ; INDICATE THAT HPS" IS CLEAR 
TYPE at :TYPE "WPS CLEAR 
$ BIT BITe2, (RO) ‘ine air 38 is Seer ME ALSO? 
: # , 
' BNE sett YES, NOTHING To. REPORT, 
WPS’ CLR’ TO 
;*SET HAREEOAT RATS CHANGE 
TYPE EM] :TYPE 'ORIVE’ 
MOV RI, -(SP) :TYPE DRIVE # 
TYPOC 
TYPE EM4 :TYPE ‘WPS SET’ 
BIS REIT2, (RO) :SET FLAG BIT INDICATING WPS SET 
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04-OCT-76 14:01 PAGE 38 
CONTROL PANEL TEST # 2 


sts CODE PERFORMS A SEEK FUNCTION ON A DRIVE AND Tas IF 


SAY ak eared 1 ail 


are TE ah TERED) D T BEGLiN ING — 
vee $1 i is NTE TRY RO ie 5p ee 12 bRIve™ NER ? 
ai i ~~ ;WAS THIS DRIVE PRESENT AT BEGNG 

2 Ds 15 IT PRESENT NOW? 
OBR iF 
4$: NIDRV ?IF NOT SKIP THIS CHECK 
38: BIS #40, IRKDA RKDA ALREADY HAS THE DRV # 

ISET CYL 1 ADDRESS 
MOV $11, 9RKCS sce Be Eo! 


1S: TSTB aRKCS CONTROL RDY? 
BPL i$ ee ye CNTAL RDY 


a ‘iy 
BIT #DPL, JRKDS 
BEQ 2 Nes, 
BIT #BITO, (RO) bec" SE LAST TIME ALSO? 
BNE CLROPL VES, ‘Xo HING TO REPORT. 
:DPL i SET THIS 
TYPE EM1 ONE” BreSRt $ 
Y Al,-(SP) 
TYPOC 
TYPE YPE "POWER L 
BIS beTT0, (ROD ‘ue FLAG BIT INDICATING THAT 
:DPL SET THIS TIME 
gR CLRDPL 
;"DPL’ BIT IS CLEAR 
2S: BIT #BITO, (RO) :WAS "DPL’ CLEAR Last TIME ALSO? 
BEQ WATSK ?YES, NOTHING TO REPORT 
‘REPORT THAT "DPL’ BIT CHANGED, 
TYPE EM1 :FROM SET TO CLEAR 
MOV RI,-(SP) 
TYPOC 
TYPE EM7 ;TYPE "POWER UP’ 
BIC BBITO, (RO) :SET FLAG BIT INDICATING THAT DPL 
IS CLEAR THIS TIME 
:THIS CODE WAITS FOR THE SEEK (DONE RBQVE) TO FINISH. WAITING 
:TIME IS APPROX. SO MS (FOR THE WORST CASE). IF R/W/S RDY 
{DOES NOT SET WITHIN 50 MS, THEN IT IS ASSUMED THAT We SIN’ 
1S POSSIBLE AND THE PROGRAM WAITS FOR 1450 MS MORE, SO THAT 
>THE SIN’ CAN fe herd 1 ’SIN’ DOES NOT SET WITHIN THIS 
;TIME AN ERROR IS REPO RIED: 
; SIN DIDN’T OCCUR 
TIF R/W/S ROY SETS WITHIN SO MS THE PROGRAM PROCEEDS TO 


:CHECK THE NEXT DRIVE. 
WATSK: MOV #-6000. ,RS et en TO WAIT FOR 


SEG 0060 


SEER 


et eed ee ed 
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906100 
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601000 


017764 


o0c00e 
000092 
020324 


020455 


00000e . 


000992 
020324 
020447 
161270 
000901 
161250 


161250 
000015 


161230 


161446 


161424 


161254 


161234 


CONTROL 


1$: 


2s: 


4$: 
ue 


3$: 


sIF SIN 
SINST: 


4§: 
1$: 


2s: 


BIT 


Pine: #edr ey # SEG 006: 


BRWS , IRKOS ;R/W/S. ROY SET? 


MATT 


‘SINT ser att FOR. 


RY 
etinvorkos = 8tn SErP 
N YES 


: WAIT 


;1500 MS ELAPSED, BUT SIN 
:DIDN’T SET. ERROR! 


bS$ 5s TYPE ASCIZ STRING 
aE ;GET OVER THE ASCIZ 
¢15><12>/SIN DIDN'T occur DRVE/ 


R1,-(SP) ;TYPE DRIVE # 
DNIDRV 
ae1T (RO) :O1D R/W/S RDY SET LAST TIME? 
#BIT1, (RO) :CLR FLAG INDICATING THAT SEEK IS 0K 

M "REPORT THAT SEEK IS OK 
R1,-(SP) 

EM 
ONIORV 
DRIVE RESET AND CLEAR IT 
#BIT1, (RO) ;DID ‘SIN’ SET LAST TIME ALSO? 
4§ ‘YES, NOTHING TO REP ORT 
#BIT1, (RO) ;SET" FLAG INDICATING 

:*SIN’ SET, AND RED SRT HOE CHANGE 
R1,-(SP) 
EMS :TYPE 'SIN’ 
QRKDA ; SAVE RKDR 
#1 oKee :DO CONTROL RESET 
af RKCS :WAIT FOR CONTROL RDY 
3 JRKDA 
£15, ORKCS 00 DRIVE RESET. RKDA 
LREADY HAS THE DRVE & 

BRKCS aatT FOR CNTRL RDY 
RS 
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032777 


401 
O41) 


000100 


020166 


051104 
000 


ONTROL PANEL TEST & 2 


Wsl2l2 38: BIT #RWS, IRKDS :R/W/S SET? 

FN piidRv : YES 
N 5 
BNE hy :WAIT FOR R/W/S RDY 
;REP ORT ERROR. ews ROY CLR 
TYPE 6S$ $3 Tipe ASCIZ § 
BR 4 OVER THE ese 
jess: -ASCIZ <15><12>/RWS ROY ist "er 7 

BR DNIDRY 


;IF ODPL SET CLEAR THE ERROR BY DOING CONTROL RESET. 


161150 CLROPL: Mov #1, IRKCS 
is: IST aRKCS 


BI .'h ta T (#_IN RK 
ag e Tae RT “re Poln 


Me’ CHECKS” WILL 


;CONTROL RE 
:WAIT FOR CN RL RDY 


H .. sie oo K 2 Y 
ei i THE Jkeers oh if 5) oN ON.. “ABE eat 


RO POINTS To fie tLaG 


ME OF ENTRY” (HERE) 
THAT_WAS 


eB FOR THE DRIVE 
; JUST CHECKED. BEFORE GOING ON TO THE NEXT 
ARE BROU 


THE HEADS 
0 (FOR THE NEXT CYCLE). 


DNIDRV: MOV (RO). IRKDA 
STB aRKDS 


L $ 
61130 BIC #17777, JRKDA 
61114 


18: TSTB = ARKCS 
BPL 1$ 
JSR PC, SMTME 
161070 4S: BIT RUS, IRKDS 
BEG 4§ 
3S: TST (RO)+ 
INC Ri 
CMP R1, #10 
BEQ 3 
IMP BEGCT1 
2s: IMP BEGCT 


SHFCNT: .WORD : 
DRYCNT: .WORD 
: MESSAGES 
OS3111 €MI: TASCIZ <15><12>/DRIVE / 


UGHT BACK TO CYLINDER 


;GET DRIVE 8 
; DRIVE PRESENT? 


CYL ADRES = C0 
MOV #11, aRKCS :G0, SEEK . 


;WAIT FOR CNTRL RDY 


; INCREMENT POINTERS TO 
; DRIVE 
OL DONE, THIS CYCLE? 


7Y 

G0 DO NEXT DRIVE 
RESTART THE CYCLE OVER 
: AGAIN 


eae RS ARE INCREMENTED 


- SEQ 0062 



















MAINDEC-11-DZRKI-D MACY11 27(1006) O4-0CT-76 14:01 PAGE 41 
OZRKID.P11 22-SEP-76 10:10 CONTROL PANEL TEST # 2 . SEG 0063 


§ ee 620335 O40 O47440 O20116 EMe: .ASCIZ / ON LINE/ 
l pets O44514 O4eS16 000 

3 02034 O40 O47440 O43106 EMS: -ASCIZ /’ OFF LINEZ 
4 is 0 18 

] ] EM4: .ASCIZ / WRT PROT 
03 ll 117 000 

O40 OS3s440 OS2ice EMS .ASCIZ /’ WRT ENABLED 
4 6204 O40Sié O4610e 
2 Bspats da 108 ty EMS ASCIZ ¢ DRIVE POWER LO/ 

| bee Bie bes Bar 

8 020434 AASB 7520 O42S2e7 EM7: -ASCIZ / POWER UP/ 


009 
Ded44 Bas OS144O O471i1 EMB: -ASCIZ 7 SIN/ 


4 
Genes cect? peg ie, EMS: ~ASCIZ 7 SEEK OK/ 


a 


PRUE OROCT a ae tea ee 
: swe Po arin, 
Ett 7 6 eet When ’DRY’ BIT IS otf bog DRIVE (ON LINE) 
sBIT ° 1S CLEAR WHEN “ORY’ IS CLEAR (WHEN DRIVE IS IN LOAD/OFF LINE, 
ptt 6 fe 3 T ir 4 peive IS FOUND TO BE PRESENT (DRY) AT 
THE BEGINING. UNLIKE BIT 7 THIS BIT DOES NOT GET SET OR 

| CLEARED AS THE DRIVE CONDITIONS CHANGE. IT JUST INDICATES 

| ;THAT THE DRIVE IS AVAILABLE FOR CHECKING. 

| ‘BIT O IS SET IF ‘DPL’ BIT GETS SET, IE: DRIVE POWER OFF 

| :BIT O15 CLEARED WHEN DRIVE P ‘ 

| :BIT 1 IS SET WHEN SEEK INCOMPLETE "SIN’ OCCURS. 

:BIT 1 IS CLEAR WHEN SEEK IS OK. 

:BIT : 18 SET WHEN WRT PROT I$ SET FROM CONSOLE. 

:BIT 2 15 CLE WHEN DRIVE IS WRITE E d. 

| 0204 

| 920470 9o0000 DRIVO ;DRIVE FLAGS 

| Dedi7e DeIv 
ORTV 

| 520476 000000 ORIVS 

d20500 900000 DRIV 

Se 0000 ORIVS 

| 020504 900000 ORIVE 

| 02050¢ 900 ORIV? 


rurururorororurururorurururururururorororurorurururururururururururururururufrururururoru 
ee ee ee ee he 8 he bh 8 A 8 8 2 bo 8 bho ho Fo bo hh Be 


MBSE SEAESSAS REISS RUN E ots Gens tahoe 


Ma 
DZ 


Bes 


020520 


020602 


020674 


O207S5e 104401 021370 


rururururururururururufvrurururvrurururufrurufurururfulrurururururururorurururururururururuorururo 

FO DD BPR EtatOt CoD DORON LE COfUt Co. 008 OFT E Conde Coup ED SEP UTE Co fare Co cBeD aePUT Ee to 
oO 
i 


020756 005037 021364 
0207 104410 
020764 012601 
0207 112100 
020770 i627 000060 
020774 002766 
Oe 0227! 000067 
Oel0de 0027 
021004 o00241 
Oc1006 06000 
021010 006000 
Oe210le 006000 
Geiole O1Go37 20470 
2200 Oellee 112100 
eel Oel0e% O014le 
ee Oe10e& O200e7 O00106 
e2e03 Oel03e 001347 
ecO4 Ocl034 105711 
2205S 021036 001345 
e206 021040 O4e737 020000 
2ee07 021046 005237 021364 
e208 Oel0Se 013700 Oe0470 


nS LL SL ASS 


020470 


eu ueay 
PENDS 00 Rae, TE Hii, 


PUT SW 
eYLTIOER itt Ret aE 
5 OF THE 


: DYNAMICALLY 
OR L 


SECT.S: NOP 
TYPE 


big’ 


bigi** 


iiges 
HDALGN: 


5S: 


BR 
-ASCIZ 


TYPE 


-ASCIZ 


i. 


IN ORDER 1 SELEC 
THE PROGRAM WILL 


MICPLL ae-SeP-76 1010 HEAD ALIGNMENT ROUT? 


-SBTTL HEAD ALIGNMENT ROUTINE 


‘Es RskeD. 1 


65$ 


67S 


ROUTE 


VE? = 


MOS 


42 


$0 oie 


VLINOER 


Ue 


BND Cc 
Re P VARED ON THE SET ECTED PEYLINDER "ND DATA IS READ 
; CONTINUOSLY FROM THE CYLINDER ( 
HE UPPER OR LOWER HE 


IN HEAD ALIGNMENT. UPON ENTRY 
s USER SHOULD oe WITH THE 


xe 
i st fo. SELECT 


tO 130 
NDER 5 of THE O00 ORIVE 


SECTOR Q) 

AND CYLINDER CAN BE SELECTED 
THE 80 DOES NOT HAVE TO BE STOPPED TO SELECT THE 
R HEAD OR CYLINDER. 
T ANOTHER DRIVE 


PUT ANY SWITCH FROM SW2 TO SW1S UP AND 
AGAIN ASK THE QUESTION (DRIVE?). . 


5s TYPE ASCIZ STRING 
4$ T OVER THE ASCIZ 
¢15><12>/SET SWO20 FOR SURFAC 0, 


::TYPE ASCIZ. STRING 


SWO=1 FOR SUR 1./ 


&$ ASCI 
¢15><12>/SET sued FOR CYLINDER 105, SWl=1 FOR CYLINDER 64/ 


69S 


i; TYPE ASCIZ sTRING 


8 OVER asc 
¢15><12)/PUT ANY’ Sil FROM 2-15 HI TO SELECT NEW DRVE/ 


EM10 
FFLAG 


(SP)+,R1 


DRIVO,RO 


ALGN 
WBITLS, DRIVO 
FFLAG 


3 ASK rn DRIVE # 


EP IRST CHA 


'T00 SMALL 
:MUST BE 7 OR LESS 
TOO BIG 


;ADDRESS OF pare 
:NEXT INPUT CHA 
SALL ae? IF C. R. 


tN SO ERROR 
=NEXT CHAR MUST BE C.R. 
“ELSE, ERROR 

:USE EVEN DRIVE IF RK-OSF 
:SHOW F TYPE DRIVE 

:DRIVE ADDR TO RO 


AS a 


MAINDEC-11-DZRKI-D 


OZRKID.P11 22-SEP-76 10:10 
2209 21056 017737 160056 
e310 pte 042737 177775 
Bb IE BU coins 
eels 021100 001402 
2214 Q21102 052700 020000 

15 astis 010077 160264 
518 lille Qle777 000017 
2217 QelleQ 105777 160244 
eels asiis? 100375 
2219 Gelles 012777 oo0001 
2220 Oell34 105777 160230 
@eel 021140 100375 
eeee Oell4¥e 005737 021364 
2223 021146 001410 
eze4 Oe1150 012701 00240 
eeeS 021154 7 021366 
eceS 021160 O0i4le 
eee? Uellée 062701 010100 
gee8 Oeils& 000407 
ee2e9 Oell170 012701 O04000 
2230 021174 005737 021366 
ee3i Oele00 001002 
e232 OeleOe O6e701 O0e440 
e233 Oele0& 005777 160156 
e234 Oelele 100006 
ee3S Oelel¥ Ole777 000001 
e236 Oeleee 105777 160142 
ee37 Oelee& 100375 
2ece38 Oele30 017702 157704 
e239 Oele34 e702 177775 
e240 Oele4O 020237 021366 
2241 Oele44 001302 
eete Oele4¥é 010077 160124 
e243 OeleSe 012777 000017 
ee44 Oeleb0 105777 160104 
ee4S Oele64 100375 
ecté Oelebs 2700 000020 
ee47 Oele7e 000001 
ee48 021300 001402 
e249 0e130e 700 000020 
eeSO 021306 O4e700 017740 
2251 Oel3sie 050100 
eeSe 021314 010077 160056 
eeS3 Oelse0 Ole 177400 
eeS4 Oelseb 2777 007336 
5cee Oeis34 012777 O00005 
eeS7? Oels4e 105777 160022 
5coe Ceis4é 100375 
ec6O 021350 0322 177774 
ee61 021356 001713 
55pe 1360 000137 020752 
e264 021364 000000 


MACY1L1 27(1006) 


021366 
021366 


160250 


160234 


160146 


160110 


157640 


160044 
160040 
160026 


157562 


04-OCT-76 i4:01 PAGE 43 
HEAD ALIGNMENT ROUTINE 
MOV aSWR, SWTCH 
BIC 8177775, SWTCH 
Fe Blas 
REQ 73 
BIS #8IT13,R0 
7$: MOV RO, aRKDA 
MOV #17, dRKCS 
Q$: TSTB.  —s- RKES 
BPL 8$ 
MOV #1, IRKCS 
9S: TSTB = ARKCS 
BPL $ 
TST FFLAG 
BEQ 13$ 
MOV #5. *40,R1 
TST SWTCH 
BEQ 10$ 
aDD $130. #40,R1 
13$: MOV #64.*40,R1 
TST SWTCH 
BNE 10$ 
ADD #41. #40,R1 
10$: TST aRKCS 
BPL 11$ 
MOV #1, IRKCS 
12$: TSTB = RKCS 
BPL 12$ 
11S: MOV aSWR, Re 
BIC #177775, Re 
CMP Re, SWTCH 
BNE 
6S: MOV RO, ARKDA 
MOV #1? JRKCS 
TSTB rKtS 
BPL i 
4g: BIC #20, RO 
BIT #1, ISWR 
BEQ 23 
BIS 20,R0 
2s: BIC #17740, RO 
BIS »RO 
MOV —~RO JRKDA 
MOV ae JRKWC 
MOV - #ROBUFF, JRKBA 
MOV #5, JRKCS 
38: TSTB = BRKCS 
BPL 33 
BIT #177774, JSUR 
BEG 10 
IMP HDALGN 
FFLAG: 0 


NOS 


;HOLD SWITCHES 


ANT SWl 


3W Wl ONLY 
Pb ee SO LOW CYLINDER 


ODD DRIVE IF HIGH TRACK OF F 
ADDRESS ORIVE 
;WRITE PROTECT 


;WAIT FOR DRIVE READY 
RESET CONTROLLER 


fg FOR READY 


iF DRIVE? 
TRACK. §, S OF HIGH 


:YES ah TEST TRACK 8 OF DRIVE HIGH 
:TRACK 130. YF SW1 SET 


;CYLINDER 64 IF NOT F 
Shi SET? 
:YES $0, CYLINDER 64 
svt tNDER 105 

Y ER BeGR? 
NO CONTINUE 
RESET 


;WAIT FOR READY 
bau Tees Bee TO Re 


W1 ONLY 
sNY CHANGE SINCE LAST? 

GO SET-UP ADDR AGAIN 
‘apotess 7 E ORIVE 
“WRITE PROTEST THE DRIVE 
:WAIT FOR CONTROL RDY 


;CLEAR TRACK ADDR 
; SW T? 
iNO TEST TRACK 0 


RACK 1 
{CLEAR CYLINDER ADDR 
PUT CYLINDER ADDR IN ADDR 
ADRES THE DRIVE 
READ 1 SECTO 
INTO THIS BUFFER 
AD, GO 


; DONE? 
;NO 


sEXIT OUT? 
:NO, CONTINUE ON THIS DRIVE 
!YES, GET NEW DRIVE 


SEG O06S 


MAINDEC=21-DZRKI=D 
O2RKIO.P11  22-SEP-7e 
E265 21% 200000 
| ge66 Belg7d 9OS0)5 
| 2267 O2157—E S3PE5E 
| eee 
| 5 
| BA 
i 
8 
2276 
| ie 
75 
| ~*BF 
j = 
2oe4 
28S 
| «‘EBBE 021402 
| Be Bee Bee 
e582 1410 61 
239; 021414 108777 
os a 
i4 
| 3364 Oel4ee 
| Be6S Del¥3e 001366 
Ba Oe1424 000762 
021436 1O440! 
«ease Deis 3746 
cas iss bier 
| «230 Oeise2 ieee 
| B303 Oel4e4 Oos005 
| FBS meres para 
; € 
| 307 147; plates 
208 Oel 13704 
1606 610011 
esi 61510 010537 
| ez E1515 O1e713 
a Bue ae 
esti asta Testy 
e315 621532 100376 
57 21534 oose 
318 Oel6% O20 
«BBLS C2542 001362 
eseo 


eee ee ee - + eee 


15771e 


j O4-OC7- %~% 4: = 


ee ee ee ee i“ eee 


BO6 


PAGE 44 


HEAD ALIGNMENT ROUTINE 
Swroe: 0 
€m10: .ASCIZ <15>«12>/DRIVE? 


-S8TTL DISK POWER FAILURE TEST 





oe 

r foctul, Bae K IS PERFORMED To Fars 
Ss 9-9 a ll- ts) ARE STILL 

S REPORT 


at z ae FAILURE rat MG PERK eae waite NON THE DISK IS 

ae SEs & POWER WHILE DCING A WRITE 
| et Rae in NOECETE S i i hee ro 4 aS tet 
aoe 6 TO i CRTduE pat TERNS Tye HEADS 
ERS TS STEN NPE Hie ii eee SHOULD 
{DRO POWER FR £ a 


ae pen ai 
ae ce, ane ah, GR 


SECT.&: CLR s INITIALIZE DRIVE 8 
Sat Ney 
es: MOV 0, IRKDA -IS IT PRESENT? 
eT aRKDS IF NOT SKIP 
108: NC vO 
AO 820000, 
BNE 53 
35 ree eh 
MOV ORIVO, -(SP) :GET DRIVE 
TYPOC 
MOV 81, RKCS ; CONTROL RESET 
TST arKCS 
at as : INIT 1012 PATTERN TO BE WRITTEN 
20 ON CYL O, CYL 1, ETC 
MOV RKDA,R1 
MOV RKWC, 
MOV RKBA, 
MOV RKCS'R4 
MOV RO, aR1 
1S: MOV RS sFILL THE PATTER IN DATA BUFFER. 
MOV R,aR3 :BUS ADRES 
HOV 014000, oR sMRITE 16 1 CYL (256x12K2 WORDS) 
#4003, 
TS7B 2S soa WAIT Eaog Bn APR ee READY 
BPL 2 
INC ze ONE TEN ALL 15 CYLINDERS? 
He RS, 820 -IF NOT, GO BAK 


SES 5066 








CO6 


e eit Se Bepny Tos1d) 7% pPSc"boueR ralione TEST so 0067 


2321 021 010005 Hoy RO,RS DRIVE 8 
ees eH ae Seats oz2046 MOV e505 ecte an TO BE WRITTEN 
tees 515512 "Oy RS oR ORE COUNTS. T CYLINOER 
- ; = ] CYLINDER 
| Bee Biss ties Boke my SBR GAS IBS es 
: : siete Beng 1S7560 2S: gi RWS, ORKDS WAIT ¢ td HEADS TO SETTLE 
; 9 foe “bcs SON ee aderz STRING 
en BETEPS Saati bag 22 GET ove $2 nent, 
-:65$: .ASCIZ /DROP POWER, 
HES 021630 b4s: 
i gogsor 
2 2 13513 ye4o00 mek og ee TS tRTO TY CYLINDER 
(- I on 4 = 
ae Bins bieis Bene re ae 
Bec 65 iets a cs: TSTB an : SWAIT FOR bof FOL READY 
ae O2ies4 Oos714 TST SR4 WAIT FOR DRIVE POWER TO GO DOWN 
ez! : OTHERWISE, ON WRITING ON CYL 10 
345 O21656 100365 BPL 3$ 
e245 IF DRIVE POWER LOSS WAS SENSED, 
e246 : ASK TO PuT POWER ON. 
Bs 1660 104401 OZleee TYPE 67S YPE ASCIZ STRING 
e248 21664 S00406 36 bes -:GET OVER THE ASCIZ 
| 2x8 --67§: .ASCIZ <15><12>/POWER ON/ 
 p3s6 021702 és: 
gas 021706 105777 157456 IST8 aRKDS ;WAIT FOR DRIVE READY 
«BS ELSIE 2887S onan: 81, oR4 SCONTROL RESET, CLEAR ERROR 
2254 621714 195714 TSTe ars 
e355 e176 1b63te 2 
2256 el 10077 1S74S2 MOV RO, ARKDA 
| eve ae : aoe RS s INITIALIZE PATTERN 
} ce O22046 : BUFR 
| Bs ies fi 13 Oe2d4e MOV #BUFR, ORS 
«BHO «021736 ~Ole712 14000 MOV #- 14000, dR2 
2261 be 173e Cres 004007 MOV #4007, aR4 ;WRITE CHECK, GO, IBA 
| @ i74 105714 TSTB ORY 
2363 021750 100376 -2 
S22 ooy7e2 pos714 1ST aR sANY ERROR? 
e266 021764 100023 BFL 7 ; 
2267 021756 104401 021764 TYPE 69S TYPE ASCIZ STRING 
| £368 O2l7be OOO41E BR ag ipoeT OVER THE ASCIZ 
233 --698: .ASCIZ <15><12>/ERROR, ON PWR-UP, RKDA=/ 
e370 22020 b8$: 
2271 22020 O14 MOV aR1,-(SP) 
2272 104402 TYPOC 
2273 e20e4 O0s205 7S: INC RS 
2274 Deedee 000012 Cup RS, #12 sCYLINDER 10 ? 
2275 Ceed32 001774 BEO 7§ ‘BR IF YES, INCREMENT AGAIN 
2376 Oe2034 000020 . CMP RS, 820 





Re ee ee Te Te eR ee EE eT Rafer a Ee ee 


MEINDEC-LI-DZ"KI- MACY it 271008) 
OZRKID.PLI beTEee. % 10:10 
2377 oC22040 001332 
} £378 = ne 
Fe g22042 000137 d2l422 
3 p2e2046 00000 
| g38¢ 
:: 
eae 
:: 
£387 
| 2388 
| ges 
«53d 
2331 
| 2392 
2% 
| Ss 
a, 
2298 
a 328059 195737 001157 
«BB ee ees 
e405 Oeetee O1 
e406 22064 Sze oooace 
2407 ceerre 112046 
zs5e 1005 
2403 Oe2074 72E 
2410 Oe2076 012600 
eli E5230 062716 o00002 
S315 peste 122716 000011 
—«-BaIS «022112 001430 
P4iS Oe2114 122716 o00200 
e4ig Deei20 001006 
2417 Oeelee 726 
S418 Oecled 105401 
Sups besis5 Seeks} goocey 
535 B55+35 ApeeE 
5455 Desiae Seavee Settee 
Bub Desiue Asi ces 
ees C2250 013746 001154 
2427 022154 105366 00001 
e428 OCeci60 Ode 
e425 Ocelee 004737 Oeeee0 
e430 Secice 105237 eects 
431 Oeel7e 0 
2432 


me eee + 


04-OCT-76 


DO6 


14:0] PAGE 46 


DISK POWER FEILURE TEST 


SUFR: 


BNE 
IMP 


&$ 


.SBTTL TYPE ROUTINE 
eeee eee eee eee eee eeene  ercener UAT TERTIMATE LiLT® A 0 BY 


saNOTES: 
;# 


7 #CALL: 
ia) USING A TRAP INSTRUCTION 
TYPE SADR 


S$: 
6$: 


73: 


Bat te CONTA 
ILLC CONTA 


SHT, (SP) 

= 

@CRLF , (SP) 
ss 

(SP )+ 


SCHARCNT 


PC STYPEC 
SFILLC, (SP)+ 


SNULL , -(SP) 
1(SP) 
¢ 


sZ styeee 
HARCNT 


ook T CHARACTER = aii neTER. 


;;MESAOR IS FIRST ADORESS OF AN ASCIZ STRING 


3325 Tere A TERMINAL? 

He HERE IF NO TERMINAL 
7: SAVE RO 
oe ADDRESS OF ASCIZ STRING 

:PUSH CHARACTER TO BE TYPED are STACK 

IF IT ISN*T THE TERMINATOR 

Ht TERMINATOR POP IT OFF THE STACK 

t RESTORE 

+ ROT UEN RETURN PC 

URN 
ANCH IF <HT> 
;;BRANCH IF NOT <CRLF> 


find cCRD «LF? EQUIV 
3; TYPE A CR AND L 


7 CLEAR Cte MC COUNT 
NEXT _CHARACT lt 


T NEX 
OF FILLER CHARS. NEEDED 
CHAR. 


HE NULL C 
S A NULL NEED TO BE TYPED? 
a F_NO--GO POP THE NULL OFF OF STACK 


YPE A NULL 
$300 NOT COUNT AS A COUNT 


SEG 006 





ee CO ie eee 





re 


ba 


RKI-D MACY13 27(1006) O4-OCT-76 14:01 PAGE 47 
Pil 22-SEP-76 10:10 TYPE ROUTINE 


;HORIZONTAL TAB PROCESSOR 


BE ile pare o2264 Fi if ‘ ite ii ea es SPACE 


O22212 001372 A STOP 
xifi3 > TST 785), ::POP SPACE OFF STACK 
13 2g :GET NEXT CHARACTER 
xEEEE0 pacer 1s6724 STYPEC: 37 TES AIT ENTIL PRINTER IS READY 
022226 118877 999008 ISE7IE MOVE 2 (SP) aSTPB :;LOAD CHAR 1 BE BE Ty FED NTO DATA REG. 
234 ie TSE 000015 600002 chee #cR, 2tSP) 318 CHARACTE RETURN? 
peceds 022264 cLRE SCHBRCNT 4 tive ==CLERR CHARACTER COUNT 
Oe2252 lee76& 000012 o0odd2 18: CMPB «RLF, (SP) Ts CHARACTER A LINE FEED? 
4 3 STYPEX ::BRANCH IF YES 
j NCB ss PC) ::COUNT THE CHARACTER 
2264 SCHARCNT: WORD 0 :: CHARACTER COUNT STORAGE 
Oz2266 900207 STYPEX: RTS PC 


.SETTL BINARY TO OCTAL (ASCII) AND TYPE 


; ERERESSES EERE RERELELAERRERREEEREL ELE ARAESESAAEEEE EAE LLL EEE EES 
4TH S ROUT! 5 TO Cun A i6-BIT BINARY NUMBER TO A &-DIGIT 

#00 AL (ASCII) NUMBER AND T 

fog tn HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


i 

ft MOV NUM, -( SP) 0 BE TYPED 

7# TYPOS CALL FoR ee 

7% -BYTE - N tiNel T OR NUMBER OF DIGITS TO TYPE 
:# .BYT: M :iNs 1 

;* ;;1=TYPE LEADING ZEROS 

H ;;O=SUPPRESS LEADING ZEROS 


t SSTYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
i #STYPOS OR STYPOC 


AL 
te MOV. NUM, -(SP) ; NUMBER TO_BE TYPED 


7% TYPON - ;;CALL FOR TYPEOUT 
3% 
i HERE FOR TYPEOUT OF A 16 BIT NUMBER 
1H MOV NUM, -(SP) ;;NUMBER TO BE TYPED 
:% TYPOC :;CALL FOR TYPEOUT 
270 017646 000000 STYPOS: MOV a(SP),-(SP) ;;PICKUP THE MODE 
Ogee74 11 000001 022513 MOVB 1(SP), SOFILL 3; LOAD gen FILL SWITCH 
Oee30e 1126 O2eesi MOVB (SP)+,SOMODE+1 ;;NUMBER DIGITS TO TYPE 
306 062716 000002 ADD #2, (SP) ADJUST OF THRN ADORESS 
Oeesle pos BR STYPON 
Ce2e314 11 00C00i 022513 S$TYPOC: MOVB #1, SOF ILL ;;SET THE ZERO FILL SWITCH 
Dee 112737 000006 O2eS15 MOVE #6, SOMODE+1 + i3Et FOR SIX(6) DIGITS 
Oee3 11e737 000005 CeeSie S§TYPON: MOVE #5, S0CNT ;SET THE ITERATION COUNT 
022336 O10346 MOV R3,-(SP) :SAVE RB 
Cee340 OlL044E MOV R4,-(SP) tea VE RS 





OZRKID. 


a 
& 
a. 
a 


| 
| 


RHEE 


HORE 


—-O.00 NO ULM 


HS 


at 


eae ee ee ee 


MAINDEC-11-DZRKI-0 
o Pli 


MACY11 27(1006) 
22-SEP-76 10:10 
22342 10546 
Be 022515 
35: GET oom 
a: Seer H1GtSC Beeets 
Oe236 1660S OO0012 
Bese65 Bees 
BES DopHos 
SR Boe t3e 
eae Siesee 
Seui3 ore oeesi4 
Dee4i6 100016 
SSsis5 Bdeops 177770 
5g 005704 
Bees D01495 
BSsdaq SE5553 goocEe 
Geevo Ose703 900040 
Sesidt idgse7 Secet 
Geeb4 105397 Oeeéie 
BEEeS  BoSags 
BSsuee Doseaa 
OSSue6 a4 
025470 012605 
Q25472 012604 
Oss47q 615603 
O2547— Ole ooo0c2 00004 
022504 D1zei6 : 
Qeze06 00002 
oees10 050 
Ssceit == BOS 
22613 000 
022514 00000 
beeese oopson sat 
Een feo 
Q22526 
a4 





: FO6 


04-OCT-76 14:01 PAGE 48 
BINARY TO octal (ASCII) AND TYPE 


SEs owl 


MOV - ;;SAVE RS 
a S5A00E +1 Fa 2:GET THE NUMBER OF DIGITS TO TYPE 
i, bese SUBTRACT IT F FOR MAX. ALLOWED 
MOV +: SAY 
| FPR eee ae 
R & ‘ ::CLEAR T Neu af WOR 
s i & iste he 
28: ROL RS tem” THte DIGIT 
ROL 13 
ROL RE 
MOV R5.R3 
3S: ROL 3 ::GET LSB OF THIS DIGIT 
DECB  ©- SOMODE 33 TYPE THIS DIGIT? 
BP. 7§ ai $388 IF ENO at: 
C #177770, 33 
Be OOS 2 c Fie. 
TST RY ::SUPPRESS THIS 0? 
BEQ c$ 338 IF YE 
4§: INC Ry :DON’T SUPPRESS ANYMORE O°S 
pe 8°0,R2 eK THIS DIGIT ASCII 
cs: ers 8 sf !MAKE ASCI ve NOT ALREADY 
TYP 3¢ : SRV vPe Tuts Morr 
7$: DECB 42s SOCINT tic UNT BY I 
ge! a He 4 Het TO BO 
T g :BR 
INC RY ENSURE OPNST DIGIT N’T A BLANK 
BR 2 a DO THE LAST OIG! 
6S: MOV (SP)+, RS ::RESTOR 
MOV (SP)+,R4 ;;REST Re 
MOV (SP)+,R3 BE TORE R3 
MOV 2(SP)°4(SP) :SET THE STACK FOR RETURNING 
my (SP)+; (SP) 
QS: -BYTE 0 FS YoRGe FOR ASCII DIGIT 
“BYTE : $1 TERMINATOR ae TYPE ROUTINE 
SOCNT: _BYT #300 Tel DIGIT UNTE 
SOFILL: :BYTE 0 
OM | + NGER i Brairs TO TYPE 


SOMODE: .WORD 
~SBTTL. TTY INPUT ROUTINE 


[garry any | atmeten ee wampagppeenenanet re aageoremiete 
EN L 
STKCNT: .WORD 0 ;;NUMBER OF ITEMS IN QUEUE 
STKQIN: .WORD ;; INPUT_POINTER 

TKQOUT: .WORD 0 3s QUTPUT POINTER 

TKQSRT: .BLKB 1 3; TTY KEYBOARD QUEUE 
STKQEND=. 

EVEN 

;#TK INITIALIZE ROUTINE 

*#THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
;*#SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBORRD INTERRUPT 


eo en ee ee re ee 


MRINDEC-11-D2RKI-D MACY11 27(1006) 
DZRKID.F 1) 22-SEP-76 10:10 
es4s 
es4é 
et 
7 Oeesiéb 


; 07 
| =&BB 
Es) 
| 2550 
2st] 
«gee 
Sm 1774] 1} 
| seec SeercS ALorHe 1567+ 
286 cestoe 021627 ? 
Baa peseié Bo359 000176 001140 
| ps8 Oeeb22 01500 
| p570 
«BEE BEERES oerar oooon: aeesie 
| 573 022632 001004 
| 2574 O22634 104401 O23646 
| p75 Oees4o O0s726 
| 2678 SeebHe D00451 : 
«Bebe DESEdS BETES, 00Ce 
—— -B578 Cectse 905077 1Sb266 
| eee RESErE TSEs5s 1S6260 
| 585 O22664 100375 
2583 O22666 117746 156254 
2584 Oect7e 042716 177600 
| $585 O22676 Oe2627 1 
2586 O22702 001366 
8? Q227D4 012777 O00100 156232 
4-5 7ie 
2589 022714 005237 o2si6 
2590 022720 Oel627 O00140 
2591 O22724 02405 
53 26726 Delbe? 000175 
35 555736 042716 op0040 
2595 22740 112677 177554 
ceo 022744 37 O72520 
022750 023727 C2e2530 oeeses 
2592 022756 O01 
| 2899 022760 012737 oeese4 oe2se0 
2600 O22766 


14:01 PAGE 49 
wh Pheure ROLTINE 
:*CALL: 
:* ISR PC, $TKINT 
;* RETURN 
STKINT: CLR STKCNT 
MOV : TKQSRT, STKQIN 
NOY STNain, SIX iy C 
tj 
MOV #290 ae teeeess 
TST SerK 
Moy #100, 3STKS 
RTS 
eae Sarai 
:#BY wre Roy Ne eee Ryee FROM 
#17 IN oie QUEUE 
éTksRv: nove OSTKB, -(SP) 
BIC etC17?, (SP) 
18: oMP (SP), ‘,: 
8 2g 
¢ SSWREG, SUR 
BEQ &$ 
2s: 
CMP #1, STKCNT 
BNE 3$ 
TYPE =, SBELL 
TST SP y+ 
3$ en 78, #23 
BNE $3 
CLR aSTKS 
TST (SP )+ 
218: STB  asTKS 
BPL 31$ 
MOVE etke -(SP) 
BIC atc? ?7?, (SP) 
CMP P)+, b21 
BNE 
Hoy #100, a$TKS 
32$: INC $TKCNT 
CMP (SP), #140 
BLT 4 
CMP (SP), #175 
GT 4 
IC #40, (SP) 
4$: MOVE  (SP$+. ASTKGIN 
INC STKGIN 
cP STKQIN, #STKGEND ; 
MOV aS TKGSRT, STKGIN 
S$: RTI 


;CLEAR COUNT OF ITEMS IN QUEUE 


MOVE THE STARTING ADDRE 
;; QUEUE INTO THE TeeUT § aurbur Po POINTERS. 


aa 


+ #CLEBR 
5 BNA rs etry eve geno INTERRUPT 
;;RET TO CALLER 


ve He ie rBoeRo VECTOR 


TTY KEYBOARD INTERRUPT 
THE INPUT BUFFER AND PUTTING 


TTR e+ aac 


i325 IT A_CONTROL G? 

;;BRANCH IF NO 

:;1S SOFT-SWR SELECTED? 
QO SWR CHANGE 


3318 THE QUEUE FULL? 
;;BRANCH IF_NO 
geRING THE TTY BELL 
CLEAN CHARACTER OFF OF STACK 


x 
IT A GONTROL=S? 
ANCH_IF_NO 


Hien TTY KEYBOARD INTERRUPTS 
73Cb AN CHAR OFF STACK 
;WA a FOR A CHAR 
;;LOOP_UNTIL ITS THERE 
53 GET THE CHARACTER 
MAKE IT 7-BIT ASCII 
ast IT A ag ets 


HIREENRELE TTY TTY KEYBOARD INTERRUPTS 


HoH unt THIS ws et 

tite IT ae CASE? 
cee IF Y 

A ae CHAR? 


;;AND PUT IT IN QUEUE 

3; UPORTE Ly | POINTER 
;GO OFF THE Dad 
:BRANCH_IF 

iRESET THE POINTER 
;RETURN 


SES 30 





HO6 


MAINDEC-11-DZ2RKI-D MACY11 27(1006) O4-9CT-76 14:01 PAGE SO 
DZRKID.P11 4 4©=- 22-SEP-76 10:10 TTY INPUT ROUTINE 
2601 
2602 SECPTUARE Sui TCH REGISTER CHANGE ROUTINE, 
e653 OF TWARE surT oH ah Foor fhe Tae ROUTIN 
sBSUTINE 1 NTE p HAIOLER AND WILL 
2605 | E THE TEST FOR CHANGE I € SWITCH REGISTER TRAP 
2606 i ai EN OPER Sting IN TTY INTERRUPT 
2607 022770 022737 000176 01140 jr. CMP SSWREG, THE SOFT-SWR SELECTED 
og beer7e } 33 T x iF NOT 
a e ‘105777 156140 stg STkS :!TS A CHAR Wa ITING? 
16 623004 100101 SPL $ :IF NOT, EXIT 
2611 023006 1177 156134 MOVE § a$TKB,-(SP) tt 
2bi2 023012 O42716 177600 BIC #0177, (SP) ::MAKE IT 7-BIT ASCII 
2613 023016 021627 000007 CMP SP), #7 3315 ITA CONTROL-G? 
2614 023022 001300 BNE !:IF NOT, PUT IT IN THE TTY QUEUE 
seiP ss ExiT 
| e617 : * RESRLSFHELL LESS SERS LE SESSA SEAS SLALA LL RALEA FS FARHAALAALEAFEAEEEE 
618 CONTROL Is PASSED To THIS POINT FRO eat ER THE I TTY INTERRUPT een ace. : 
r~< e 
B20 -*CONTROL-G BEING TYPED ANG THEY SUITCH "REGISTER BEING se SELECTED. 
2621 023024 123727 001134 oo000: &s: CMPB TOB, 1 $5 
2622 023032 O01674 BE : BRANCH aN ves" 
| 623 023034 26 TST (SP) : CLEAR CON TROL-G OFF STACK 
| pee4 023036 004737 o22s26 JSR pt STKINT ‘FLUSH T Y INPUT QUEUE 
«pees =Oe3042 77 156076 CLR astk t SD TSABLE 1 y REVBOBRD INTERRUPTS 
| p26 23046 112737 000001 001135 MOVB  &1,$INTAG ::SET INTERRUPT MODE INDICATOR 
e628 023054 104401 0o023657 TYPE ,$CNTLG 5 ECHO THE CONTROL-G (1G) 
/ 3623 O23060 104401 de3664 SGTSWR: TYPE £ TYPE CURRENT CONTENTS 
| 3E30 023064 013746 000176 MOV SWREG, -(SP) VE SWREG FOR TYPEOU 
_  —631 023070 104402 TYPOC 180 TYPE--OCTAL ASCE TALL DIGITS) 
| 632 023072 104401 023675 TYPE  ,SMNEW :PROMPT FOR NEW SWR 
| 2633 023076 19$: CLR “(SP) i CLEAR COUNTER 
234 023100 o0S046 CLR -(5P) iT W SWR 
«BIS «023102 105777 156036 7$: TST a$TKS CHAR SHERE: 
eae 023106 100375 BPL 75 ::IF NOT TRY AGAIN 
| 2638 023110 117746 156032 MOVE a$TKB,-(S ;:PICK UP CHAR 
523 023114 O42716 177606 BIC ae tes (Ep !:MAKE IT 7-BIT ASCII 
cris 
| 4 
| BE43 023120 o21627 oD0025 3S: CMP (SP), #25 $315 1 iT A CONTROL -U? 
—« BEY «023124 001005 BNE 10 ::BRANCH IF NOT 
«245 C2312 104401 o2e2E52 TYPE $CNTLU $3 YES, ECHO CONTROL =U 
264— O23i32 62706 O00006 208: ADD be. SP tIGNORE PREVIOUS INPU vu 
eb47 023136 000757 BR 19¢ !:LET'S TRY IT AGAIN 
2E49 
2650 023140 O2i627 oD0015 10$: CMP (SP), #15 sIS ITA CRD? 
2651 023144 601020 BNE 16 : BRANCH TF 
eee est 756 oo0004 TS 4(SP) 2: ES Is. 1 ie FIRST CHAR? 
eee 1 140: BEQ 11 :s BRAAC 
2654 023154 016677 opDo00e 155756 MOV 2(SP), aSWR : SAVE en suf 
| BeSS 023162 062706 000006 11$: ADD #6, SP : CLEAR UP STA 
2656 O23166 104401 O01i61 148: TYPE  ,StRLF ::ECHO <CR> ANDY <LF> 


—_ 
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e690 


Hattateateatat ata 
Sia 


023172 
3200 


Oeste 
023364 
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123727 001135 
ees 
Ole 000100 
000092 
004737 Oeeeed 

000069 
0024 
Be 000087 
1S 


e726 000060 
000002 


000002 
177776 


104401 001160 
000720 


010346 
OOSO4E 


27( 1006) 


000001 
155734 


000002 


oo0c04 
Oe25eS 
Oee2See2 


T06 


O4-OCT-76 14:01 PAGE Si 
TTY INPUT ROUTINE 


4y SINTAG, #1 
MOV #100, a$TKS 


15$: 
168: TSR PC STYPEC 
CMP (SP), # 


178: INC 


188: TYPE 
BR 
.DSABL LSB 





i Bacte Try KBD INTERRUPTS? 
2: RE-ENABLE TTY KBD INTERRUPTS 
URN 


< 
ee F YES 
ANCH “ YES 


STRIP OFF ASCII 
iS T au THE var CHAR 


tt TYPE LF> 
tISIMULATE CONTROL-U 


[pnpstonneseqewenstenceseavevessasyessececetpesatarsangumennes 
:RTHTS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE T 


:# RDCHR :3GET A CHARACTER FROM THE QUEUE 
:# RETURN HERE HARACTER IS ON THE STACK 
# iit PARITY BIT STRIPPED OFF 
SRDCHR: MOV (SP), -(SP) s PUSH Roun THE PC AND 
MOV 4(SP} 2ISP) 31 
CLR 4(5P) ADY FOR A CHARACTER 
CLR -(5P) s PUT NEW PS ON STACK 
MOV #64$,-(SP) ::PUT NEW PC ON STACK 
a RTI ::POP NEW PC AND PS 
1$: qs! STKCNT ;;WAIT ON A CHARACTER 
DEC STKCNT s sDECREMENT | THE COUNTER 
MOVB a$TKGOUT,4(SP) a, 38 ONE CHARACTER 
INC T ATE THE POINTER 
CMP STKQOUT, #STKGEND ; i010 iT GO irr OF THE END? 


BNE 2S. HIF _NO 
MOV #$TKQSRT,STKQOUT’: RESET HE POINTER 
: RETURN 


es: RTI 
je ioaeaeeredeecsenesenshiereeae cane ceeeennenecaeaie 
:ATHIS: ROUTINE WILL INPUT A STRING FROM THE T 


iP ROLIN 
* RETURN HERE 


SRDLIN: MOV R3,-(SP) 
CLR -(§P) 





;; INPUT A STRING FROM THE T 


;;ADDRESS OF FIRST CHARACTER “yILe 5. on THE STACK 


t; TERMINATOR WILL BE A BYTE OF ALL 


;; SAVE _R3 
;;CLEAR THE RUBOUT KEY 
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023616 
023646 


Nite 
atu ata 
or — 


. 
BPR 


x 2 
OY ERON ESS 
PREORO DROS OOM ts 
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truce 
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023614 


023614 


000002 
000004 


000 
000012 
Oe0lee 
053505 


04-OCT-76 14:01 PAGE Se 
TTY INPUT ROUTINE 


1$: 
es: 


10S: 


6$: 


Ss: 


78: 


4$: 
3$: 


9S: 


STTYIN: . 


Rr “ASCT? 


-ASCIZ 


#STTYIN,R3 ::GET ADDRESS 
aS TTYIN+30,R2 : BUFFER FULL? 
::G0 READ ONE CHARACTER FROM THE TTY 
(SP)4, (RB) ::GET CHARACTER 
8177, (R3) 331$ IT  RUBOUT 
(SP) ae THIS THE FIRST RUBOUT? 
6$ :;BR IF NO 
#’\,9$ 3; TYPE A BACK SLASH 
-1, (SP) :;SET THE RUBOUT KEY 
;;BACKUP BY ONE 
R3, SSTTYIN 3;STACK EMPTY? 
4 ;;BR IF YES 
(R3),9S ::SETUP TO TYPEOUT THE DELETED CHAR. 
3g ::G0 TYP 
2g ?:G0 READ ANOTHER CHAR. 
(SP) ;;RUBOUT KEY SET? 
7$ ss F NO 
#29598 :: TYPE A BACK SLASH 
(SP) ;;CLEAR THE RUBOUT KEY 
#25, (R32) ::ITS CHARACTER A CTRL U? 
8$ ;;BR_IF_NO 
SCNTLU :: TYPE A CONTROL “U” 
1g :3G0 START 0 ‘ 
#22, (R3) ::1S CHARACTER A “tR"? 
3$ ::BRANCH IF NO 
(R3) ::CLEAR THE CHARACTER 
, CRLF :iTYPE A "CR" & “LE™ 
STTYIN >: TYPE THE INPUT STRING 
2g ::G0 PICKUP ANOTHER CHACTER 
SQUES :: TYPE A '?? 
i$ ::CLEAR THE BUFFER AND LOOP 
(R32), 98 ::ECHO THE CHARACTER : 
iS, (R3)+ ;;CHECK FOR RETURN 
2g ::LOOP IF NOT RETURN 
-1(R3) !:CLEAR RETURN (THE 15) 
$LF ;; TYPE A E FEED 
tSP)+ *:CLEAN RUBOUT KEY FROM THE STACK 
(SP)+,R3 ;;RESTO 
(5P),-(SP) ::ADJUST THE STACK AND PUT ADDRESS OF THE 
4(SP} 2(SP). $3 FIRST ASCII CHARACTER ON IT 
sSTTYIN, 4(SP) 
; ;RETURN 
9 ::STORAGE FOR ASCII CHAR. TO TYPE 
0 ;; TERMINATOR 
30 :;RESERVE 30 BYTES FOR TTY INPUT 
(207) <377><377> ;;CODE FOR BELL 
4tU7<15><12> ;;CONTROL “U" 
74G/<15><12>  — s ;CONTROL “G” 


<15><1l2e>/SWR = / 


/ NEW = / 








¢ 
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DZRKID.P11 22-SEP-76 10:10 TTY INPUT ROLTINE  $€9 0075 
| 28788 023702 O36440 900040 
e770 .SBTTL READ AN OCTAL NUMBER FROM THE TTY 
| 5506 s s SSSESERESSRSSESESSSS SS SRELSSA RSLS ASRRSLESESSSFLASLAFLSFFSSELE SESE 
SATHIS ROUT INE i WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
377 : #CHANGE IT 70 BINARY. 
277 1% RDOCT :;READ AN OCTAL NUMBER 
277 1% RETURN HERE :LOW ORDER BITS ARE ON TOP OF THE STACK 
8 * !:HIGH ORDER BITS ARE IN SHIOCT 
2780 23706 O11e46 SRDOCT: MOV (SP), -(SP) s PROVIDE, SPACE FOR THE 
2781 O23710 Olb66&6 o00004 oo0D0e2 MOV 4(SP} 2(SP) +: INPUT 
gcbe 023716 O1004%6 MOV RO, -(SP) ::PUSH Ro ON STACK 
023720 010146 MOV Ri’ =(5P) ::PUSH R1 ON STACK 
784 Oez722 O1 MOV Re; -(5P) ::PUSH Re ON STACK 
785 023724 10441 1S: RDLIN ; READ AN ASCIZ LINE 
2786 023726 012600 MOV (SP)+,RO ::GET ADDRESS OF 1ST CHARACTER 
2787 023730 905001 cLR Ri ::CLEAR DATA WORD 
sc8e Sg036 POsate 23: hOvE Eo1+, (SP) :;PICKUP THIS CHARACTER 
2790 023736 001412 BEQ 3$ ;;1F ZERO GET OUT 
| #791 023740 006301 ASL Ri 22 
| 2792 023742 006102 ROL Re 
2793 23744 006301 ASL RI 384 
| B734 Dea?¥e 006108 ROL 
ae Oe 006301 Ri #8 
3752 006102 ROL Re 
| 2797 023754 O42716 177770 BIC #tC7, (SP) :;STRIP THE ASCII JUNK 
023760 062601 ROD (SP)4+,R1 s$AQG_IN THIS DIGIT 
2799 «023762 900764 BR 2 
| 2800 023764 005726 3S: TST (SP)+ HOLEAN T RMINATOR FROM STACK 
2801 Oes766 O10166 ooon1e MOY R1, 12(SP) SAVE THE RESUL 
| pede O23772 0102327 O24006 MOY Re’ SHIOCT 
| p803 023776 Ol260e MOV (SP)+,Re 5 sPOP STACK INTO Re 
| 2804 O24000 pigeol MOV (SP)+,R1 ;;POP STACK INTO Rl 
2805 Oe40G2 612600 MOV (SP)+'RO 3 ;POP STACK INTO RO 
2e0& 24004 900002 RTI : RETURN 
o24006 000006 SHIOCT: .WORD 0 t THIGH ORDER BITS GO HERE 


| 2807 
| 2608 -SBTTL TRAP DECODER 
| 


2e0S 
2810 © SXSKARSKE HSER HAE SERA SEALER RES LS SRLS SEAS LA LARA AHAASAAAARTELERFE 
| Bell :ETHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP I NSTRUCTION 
«Bele “AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
| eel :#0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
| eciy :%60 TO THAT ROUTINE. 
| $816 e410 D100% pooo02 rt ee 3 B) RO T rere ADDRESS 
| 5516 BEY 1 BAESaS TST (oP Be Y2 
eer: geo ee pen 
ges? 5] tas oe4044 Mov STRPAD(RO),RO INDEX TO TABL 
| eect 624030 900200 RTS RO $60 TO ROUTINE 


mw 
ao 
tf 
+ 


“acs ecm aaa ana aa eA meme Tin «1a aa Ea aoe hee ee ee 
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OLLE4E 


024032 
poet BA BREE 000004 co0000e 


73? 024230 
737 000340 


Beas 


POPPIES 


SHEER chsweed 


a 


iS5014 
024234 
024142 


OOKOHCOKVOOOO00OH 
0 


2 
B 

By 
By 


8 
g 
F. 


foron 
Pe oe 
rear oer ess 
ib at 
Bee 

ee 
Os 


3 
FTE 
8 


1S4746 
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o0o0e4 
000026 


oooce4 


000024 


04-OCT-76 14:01 PAGE S4 
TRAP DECODER 


;;THIS IS USE TO HANDLE THE “GETPRI™ MACRO 
STRAPe: MOV (SP) ,-(SP) ssTOVE THE PC DOWN 


att NCSI eC + Bee Fone THE Pon 


-SBTTL TRAP TABLE 


:*THIS TABLE CONTAINS THE aap ADDRESSES OF THE ROUTINES CALLED 
;*BY THE “TRAP” INSTRUCTION 


: ROUTINE 

STRPAD: .WORD  $TRAP2 
$TYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT: ROUTINE 
STYPOC ::CALL=TYPOC  TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
STYPOS ::CALL=TYPOS  TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
STYPON ;:CALL=TYPON  TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 


SGTSWR =; ;CALL=GTSWR TRAP+5( 104405) GET SOFT-SWR SETTING 


SCKSWR ;;CALL=CKSWR  TRAP+5(104406) TEST FOR CHANGE IN SOFT-SUWR 
SROCHR ;::CALL=RDCHR § TRAP+7(104407) TYPEIN CHARACTER ROUTINE 
DLIN : sCALL=ROLIN Traps 1610419) TTY TYPEIN STRING UT INE 
OCT ::CALLSRDOCT § TRAP+11( 104411) READ AN OCTAL fiers FROM TTY 
.SBTTL POWER DOWN AND UP ROUTINES 


: © SESSA RSEEREREFALALE SLA SAFA SEL ALE RELA LEARELFELLLALELSLSFELFLRETS 
'BOWER DOWN ROUTINE 
drut: & MOV #SILLUP, O#PWRVEC ;;SET FOR FAST UP 

MOV #340 QerURVEC +E s BRIO: 


MOV -{Sp He PuSA ko ON STACK 
MOV Ay (SP) ::PUSH RI ON STACK 
MOY Re’ -(S5P) ?:PUSH Re ON STACK 
MOV R3,-(5P) ::PUSH R3 ON STASK 
MOV RY’ =(5P) : PUSH 

MOV RS|-(SP) :;PUSH RS ON STACK 
MOV g5he =(SP) ; PUSH F) STACK 
MOV SSAVRE :SAVE § 

HOV iSPHRUP DePWRVEC':;SET UP VECTOR 

BR 2 ;;HANG UP 


: + LEKLELEHELEREKE EERE EERE EKER EEE EE EE EE ER EEE SEER EL ERE RE EREEEEEEEES 
“POWER UP ROUTINE 
bpuRUP: NOV aSILLUP QAPHRVEC ; ,SET of R FAST DOWN 


MO SSAVRG, SP 

CLR SSAVRE’ tT UAIT LOOP FOR THE TTY 
18: INC SSAVRE ;;WAIT FOR THE INC 

BNE 1 WORD 

MOV (SP)+, SWR 3 3BOP STACK INTO aSWR 

MOV (SP)4'RS ::POP STACK INTO RS 

MOY (5P)+'R4 ::POP STACK INTO R4 

MOV (SP)+:R3 ::POP STACK INTO R3 

MOV (SP)+'Re ::POP STACK INTO R2 

MOV (SP)+'R1 ::POP STACK INTO Ri 


SEG 0076 


~ 







MO6 , 
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DZRKID.P1l 22-SEP-76 10:10 POWER DOWN AND UP ROUTINES SQ 0077 
sees S5d55¢ piesee 4 9024 Nov SSPURONC a#PWR ott, SIP THE POWER DOWN VECTOR 
S545;8 15536 genoc8 agate? MOV #340, ea ae : ‘apes a 
2984 222 104401 TYPE REPORT TH THE POWER FAILURE 
42 SPURMG: ior $POWER !;POWER FAIL MESSAGE POINTER 
234 900000 ssavre: 0 : PUT the is MERE ‘ 


| 

? SILLUP: HALT THE. Powe NCE WAS STARTE 
ze Ee BR 2 ts Bee See : DOWN WAS COMPLETE 
Oe4236 OOS01S O47S20 O4eS27 SPOWER: .ASCIZ <15><12>"POWER™ 

| 

| 

| 


NO6 
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i . 
eee 


PRONUM 001313 


OZRKID.P 11 22-SEP-76 10:16 SYMBOL TABLE S SEG 0076 
AUTSLe OC026e4 RYE athe ad pease PROI 003266 SECENT posaad 
Bone RE BB BR iho HUN EB 
010340 CYL 013524 EXITB  O03642 PRO = 000000 SECSYS 903030 
BRO.IN 011752 CYLADR 005262 XITX 003410 PRI = ats SECTB 01308 
BAD.ON 013734 YLADEe O0S256 xITe  OO06056 FRe = 90010 SECT. 13744 
BASE 1266 YLBAS 001315 XTFRe 003352 PR3 = Q00140 SECT.1 011762 
Bea ine 0 YLONT 90134 XTR 0014 PRY = 000200 aect.§ 49330 
T 17276 YLOFF 7 AIL 013276 PRS = 000240 SECT. Oebee 
BEGET 7304 TBL 001274 FAILED 013260 PRE = 000300 SECT.4 017154 
EGIN 001410 FFLAG $8 021364 PR? = 000340 SECT.S 020510 
BiTO = 000001 DDISP = 177570 FIL.ON 003652 PS = 177776 SECT.6 021402 
BITOO = 000001 DISPLA O00114e 1 012506 PSW = = 177776 SEEKI 01402 
BITO1 = Q0000e SPRE 000174 00327e PWRVEC= 000024 SEEKO. 001404 
BiTOe = 000004 DNIORV Oe0e26 GOOT 012462 RBA 001414 SEKSET 911550 
BITO3 = 000010 004230 G 003304 UFF_ 013654 SHFCNT 020320 
BITO4 = 000020 = 010000 G02 003316 ROBUFF 007336 SHF 1 013570 
BITOS = O00040 DRACTV 001164 G03 003324 HK 006430 SHF2 013566 
BITOS = 000100 NT1 001311 = 104405 ROCHKO 016674 SHF 2 013564 
BITO? = 000e00 DRIVE 901314 HDALGN 020752 ROCHR = 104407 SIN _ = 001000 
BITO8 = 000400 DRIVC 020470 . HDRFLG 001320 ROLIN = 104410 SINST Q20054 
BITOS = 001000 DRIV1 d2047e T = 000011 ROLINK O0S6le SMTME Q0S5 
BITi_ = 900002 DRIVe 020474 EX 001324 RDOCT = 104411 STACK = 001100 
BI710 = 002000 DRIV3 O20476 LEGAL OO04lee ROTBL 001226 START  Q01440 
giitt = 904000 DRIV4 020500 INITIL OO4S04 005636 STARTR 901434 
B.Tle = 010000 DRIVS O20S0e INITI2 OO4S16 005650 STFLG 01325 
BIT13 = 020000 VE 20504 INIT.2 O10446 RD3 005655 STKLMT= 177774 
BIT14 = 040000 V7_ Qe0S06 INSYSe Q03506 RD4Y 005720 TOP 13556 
B2T15 = 100000 DRVCNT O203ee I OleSle RDS 005726 STORE 4052 
BiTe = Q00004 0 001206 IOTVEC= 000020 RD& 005732 STRT1 01754 
BIT3 = 000010 DSKADR 001334 KYTEMP 001330 7 00603e SUR 013550 
BIT4 = 000020 MP 001352 DFLG § O04204 READCS 001356 SWR 001140 
BITS = 000040 DS = 177570 LDSEEK 011564 RESTRT OO62le SWREG 000176 
BITé = 000100 001321 F = 000012 RESVEC= 000010 SWTC e136 
BIT? = 000200 EMTYEC= 000030 LFLF = 105ele RETFRe 007250 SWO. = 000001 
8IT8 = 000400 020324 QGA OC1166 RETRNe OO6426 SWOO = 000001 
BiT9 = 001000 EM10 021370 MANSEL 010336 RETRNS 005354 $WO1 = Q0090e 
BPTVEC= 000014 020335 005214 RETRNY O00 SWO2 = 000004 
BUFF 013652 EM3 ‘020347 MASKER QO04010 RETRY Q13166 SWO3 = 000010 
BUFR Oee046 EM4 020362 001312 RFCERR 013234 SWO4 = 000020 
0013 EMS 02937 MORE 013040 ERR Ql3el6 SWOS = 000040 
CHECK! 005430 EME 020413 OUNT  QO04276 RKBA 001374 SWOS = 000100 
CHKCNT 001350 EM? 020434 MSKTBL O0le56 RKCS 001370 SWO7 = 000200 
CK = 104406 EMS 020447 012376 RKDA 001376 SWO8 = 000400 
Stat Oe0ele EMS 020455 002574 RKOS 001364 SWOS = 001000 
CNISIN ROLSES ERRCHK 006062 xT 017460 RKER 001366 SW1 = 900002 
COM le peels ieee eS . Bhs oa on mate Tt = fatotee ~ 
&3 Bey 16 FORE C Boi4 6 : STBL Boi 34 RW = Soa168 Wle = alte 
CONTIN 011364 ERRVEC= O00004 PATTRN 001362 RUSRDY_ Ahaaee SW13. = 0200 
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